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Cassette 99A 5 2 Disquette Routines 
Basic TI * Car driver : 
Graphiques 
Assembleur. Fonctionne avec le 
module ‘"Editeur/Assembleur" où 
* Poker le module TMini-mémoire”. 


Cassette 99B Cassette 99E Disquette 


Basic TI 
PRE RENE Désassemblieur 
. tra * Course de chevaux Assembleur. Fonctionne avec les 
Beuio Etarau ? Leu de pouraute ru 
+ Chardef ° lets ces 
Basic Etendu À a 
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+ Course en ligne dro Assembleur. Fonctionne avec les 
Basio Ti : “ig modules "Editeur/Assembl 
es diteur s leur” ou 
e Division Cassette Mini-mémoire”. 


Mastermind Disquette 


Assembleur. Fonctionne avec la i 
Mini-mémoire seule. Crayon optique 
A Assembleur. Fonctionne avec les 
Disquette modules "Editeur/Assemblieur" at 
Cessette 99D Mastermind j'énon ic és dlhel 


Basic Ti Assembleur. Fonctionne à partir 
du module "Basic Etendu. 
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99 Magazine est-il toujours publié 7. 
c'est une question que l'on nous pose très 
souvent au téléphone, ou lors de 5alons tel 
le récent Micro-Expo. Ceci est certainement 
adÿ au fait que de nombreuses personnes 
pensent que nous avons un lien de parenté 
avec Texas Instruments, ce qui les /aïsse 
croire que “99 Magazine” à cessé d'exister 
au moment de larrêt de production du 
T/-99/4A. Quoi qu'i/ en soit, notre revue 
est bien présente et vous êtes toujours 
aussi nombreux à nous être fidèles, ce qui 
prouve qu'il est possible de publier une 
revue spécialisée bien aprés la fin de 
commercialisation dun matériel Passons 
maintenant au conteny de Ce numéro. 


Gérard PBaroni et Jean Marin, n05 deux 
amis du Club Ticazur, travaillent toujours 
avec acharnement sur la Mini-mémoïre et 
nous  confient le résultat de Jeurs 
investigations Bernard Bezuel, quant a 
lui, nous propose un programme 
exceptionnel! puisqu'il Sagil, à notre 
connaissance, du premier programme 
graphique pour T/-99 fonctionnant avec Un 
crayon optique. Vous trouverez dans cet 
article les instructions et schémas 
permettant Ja réalisation du crayon. Les 
sources comportent de très nombreuses 
remarques fort intéressantes et nous vous 
conseïllons vivement d'étudier Ja routine 
"REMPLISSAGE", remarquable. 


Denise Amrouche, Gibert Arribet et 
Jean Sahal ont regroupé leurs efforts afin 
de vous communiquer Un programme où les 
possibilités sonores et graphiques du 6asiC 
Etendu sont pleinement exploitées Vous 
connaissez tous /a qualité des programmes 
écrits par Edouard Krok, 1! récidive avec 
Je programme  Tission Spéciale, dans 
lequel il vous faudra affronter l'abominable 
Krapu! et ses acolytes. 


Editorial 


Vous étiez nombreux à nous demander un 
programme de gestion de comptes 
familiaux; c'est désormais chose faite 
Celui-ci a été écrit par Jean-Philippe 

Guillemant et fonctionne avec un lecteur 
de disquette et une extension J2Ko. Encore 
une foïs, nous vous conseillons l'analyse du 
programme, écrit de façon remarquable. /l 
faut Signaler que, sur la cassette 
d'accompagnement, le programme est scindé 
en deux parties qu'il vous faudra relier 
avec la classique instruction MERGE. 


Gérard Santraïlle poursuit Sa série 
d'initiations au Pascal (on ne Sen /a55se 
pas.) fort appréciée pour sa clarté et 53 
Justesse par les amateurs de Ce langage de 
haut niveau “Opérations” est un programme 
a caractère éducatif, écrit en Basic T| par 
Albert Riga! 


Julien : ThomaS nous propose Un programme 
permettant Ja définition de caractères ou 
lutins el, pour conclure, Marianne  Sutz 
vous communique un trés court programme 
pour démontrer que le T/ autorise des 
effets graphiques  fntéressants avec 
seulement quelques lignes de Basic. 


Hervé Thiriez 
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Bit-Map et Mini-mémoire 


Gérard Baroni et Jean Marin 


NDLR : les programmes proposés 
avec cet article ne fonctionnent 
pas si un contrôleur de disquettes 
est raccordé au T1. 


Dans ce troisième article, nous 
rappelons que notre but est de rendre 
compatible le mode Bit-Map - dont on 
connaît la puissance graphique - et le 
Basic dont on apprécie la souplesse 
d'édition. 


La configuration minimale exigée pour 
mettre en œuvre les programme 
décrits dans cet article est : console, 
mini-mémoire et lecteur de K7. 


Après l'écriture directe dans les 
registres VDP et l'accès au mode 
Bit-Map en Basic (14 Ko pour l'image et 
2 Ko pour le Basic) et comme nous vous 
l'annoncions dans le dernier article, 
nous mettons à votre disposition les 
listings de routines en assembleur 
développées dans le cadre des 
activités du Club TICAZUR. 


Ces routines, à implanter dans votre 
mini-mémoire, seront appelées du 
Basic par des CALL LINK ("BITMAP"), 
CALL LINK ("COLOR"), CALL LINK 
("POINT",Y,X), CALL LINK (C"DROITE", 
YD,XD,YA,XA). 


Vous avez déjà compris, avec ces noms 
évocateurs, que vous allez pouvoir 
travailler sur des graphismes haute 
résolution avec toute la puissance et 
la vitesse d'exécution du langage 
machine et, toujours selon notre 
principe, avec la facilité d'emploi et 
d'édition du Basic. Désormais, les 2 Ko 
disponibles en Basic sont totalement 


LISSAJOUS 


10 REM LISSAJOUS 

100 CALL LOÂAD(-31890,56,1) 
110 CALL LINK("BITMAP") 
120 YD=186 

130 XD=128 

140 FOR T=1 TO 360 STEP 4 
150 C=16%INT(2+14%xRND) 

160 CALL LINK("COLOR" ,C) 


libérés et utilisables pour des calculs, 
saisies, etc... 


Les programmes dont les listings sont 
joints démontrent qu'en quelques 
lignes Basic vous pouvez arriver, 
rapidement, à des 
graphiques élaborées. 


Quelques remarques sur 
ces programmes 


LISS A UJOUS 


Comparez sa vitesse d'exécution et sa 
place en mémoire avec le programme 
Basic que nous vous avions proposé 
dans le numéro 7 de 99 Magazine. 


KALEIDOSCOPE 


Il vous est parfaitement possible de 
modifier ce programme et d'ajouter ou 
retrancher des miroirs. Vous ralentirez 
ou accélèrerez l'exécution selon votre 
option. 


POLYGONE 


Exemples : 


e un angle de 10° donne un cercle; 

e un angle de 150° donne une étoile à 
12 pointes; 
un angle de 85° donne une couronne 
dont vont trouverez, joint à cet 
article, une copie d'écran sortie sur 
imprimante Seikosha GP 100A. 


LINES 


Voici une version Basic du programme 
de démonstration “LINES" fourni par 


Texas Instruments 
Mini-mémoire. 


avec la 


applications. 


Nous ne pouvons pas, dans un article 
tel que celui-ci, commenter les 
routines et les programmes fournis 
comme nous le faisons à notre club 
dans notre compte-rendu hebdomadaire 
(nous en sommes actuellement au 
numéro 23). Mais, si vous le souhaitez 
bien sûr, nous avons le plaisir de vous 
annoncer que d'autres sous- 
programmes en assembleur pour votre 
Mini-mémoire, baptisés CALL LINL 
(LI), CSI"), C'CSION"), (‘CSIOFF*) et 
autres ("TEXTE") ou (“DIM‘), seront 
bientôt à votre disposition. 


Alors, lisez 99 Magazine évidemment, 
dans lequel nous - espérons dans un 
avenir proche vous donner notre 
solution à quelques problèmes. Par 
exemple, maintenant que nous sommes 
capables de créér des dessins, il serait 
souhaitable de pouvoir les sauvegarder; 
or, les routines Texas (disquettes ou 
cassettes) ne conviennent pas pour des 
raisons telles que : 


e un buffer en RAM VDP ne laisse que 
très peu de place; 
affichage des messages non 
compatible avec le mode Bit-Map. 


Notre cher vieux TI-99/4A, malgré son 
âge, a encore beaucoup à nous offrir et, 
avec sa Mini-mémoire chargée avec des 
sous-programme en assembleur, il sera 
capable encore longtemps de rivaliser 
avec les meilleurs. 


(m 


YA=96+INT(90*xCOS(T/56) ) 
XA=128+INT(110XSIN(T/14)) 
CALL LINKÇC"DROITE" ,YD,XD,YA,XA) 


YD=YA 
XD=XA 
NEXT T 


CALL KEY(5,R,E) 
1F E=0 THEN 230 
CALL PEEKV(-32768,X) 
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HALEIDOSCOPE CALL LINKC"POINT" ,Y,X) 
X0=X 


X=32+Y 
10 REM KALEIDOSCOPE Y=X0-32 


100 CALL LOAD(-31890,56,0) nm ” 
110 CALL CLEAR re ne 
120 PRINT * KALEIDOSCOPE":" CALL LINK("POINT".Y.X) 
CES RE 
——————— X=256-X 
130 PRINT " LES COMMANDES SONT :":::" ë CALL LINK("P 0] 
POUR CHANGER LA"::" COULEUR Y=192-Y id dns. 
. CA 
140 PRINT " D,E,S,X POUR DEPLACER LE"::" eut. 
CURSEUR" ::" (ENTER) POUR COMMEN IF R{)13 THEN 460 
CER ET": FINIR 5: CALL PEEKV(-32768 ,X) 
150 INPUT "(CENTER)" :R$ END 
160 CALL LINK("BITMAP") 1F R<)67 THEN 490 


170 ax 6 C=C+16+240x(C=240) 
s ; GOTO 200 


C=32 | 
200 CALL LINKC*COLOR" ,C) bn D: di 


210 CALL LINKC"POINT® ,YŸ,X) ee: 
oi IF RO83 THEN 550 
È X=X-1-(X=8) 


Y=X0-32 
+ 
CALL LINK£Ç"POINT" ,Y,X) . nr THEN 580 


X=256-X 
Y=Y-1-(CY= 
CALL LINKÇ"POINT",Y,X) mets à 


Y=192-Y 
IF R«) 
CALL LINKÇ"POINT",Y,X) ere Fe 


AAESEER GOTO 210 


LINES 


10 REM LINES IF (YD)0)x(YD{192)THEN 340 


100 CALL SCREEN(1) - DYD=-DYD 


110 CALL LOAD(-31890,56,0) YD=YD+DYD 
120 IF (YA)0)#(YA(192) THEN 370 


130 DYA=-DYA 

140 YA=YA+DYA 

150 C=16%INT(2+14%xRND) 

160 CALL LINK("COLOR" ,C) 

170 : CALL LINKÇ"DROITE" ,YD,XD,YA,XA) 
180 NEN+ 1 

190 IF N<80 THEN 220 

Z00 FOR I=i TO 20 


210 CALL LINK(®BITMAP") CALL KEY(S,R,E) 

220 XD=XD+DXD IF E=0 THEN 480 

230 YD=YD+DYD CALL PEEKV(-32768,X) 
240 XA=XA+DXA END 

250 YA=YA+DYA NEXT 1 


260 IF (XD)0)#(XD{256)THEN 280 N=0 
270 DXD=-DXD CALL LINK("BITMAP") 


280 XD=XD+DXD DXD=-8+ INT (16%RND) 


290 IF (XA)0)#(XA(Z256) THEN 310 DXA=-8+1INTX 1 6#RND) 

300 DXA=-DXA DYD=-8+ INT ( 1 6XRND) 

310 XA=XA+DXA DYA=-8+ INT (1 6#RND) 
GOTO 210 
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POLUGORES 


10 REM POLYGONES A=A-360*INT(A/360 ) 
100 CALL LOAD(-31890,56,0) 240 RD=A*P 

110 CALL CLEAR 250 XA=XC+R*COS(RD) 

130 INPUT "ANGLE ? ":DA 270 CALL LINK("DROITE",YD,XD,YA,XA) 
140 YC=9é6 280 IF INT(A)=0 THEN 320 
150 XC=128 290 YD=YA 

160 R=70 XD=XA 

170 C=240 GOTO 220 

180 CALL LINK("BITMAP") 320 CALL SOUND{(100,440,0) 
190 YD=YC 330 CALL KEY(S,R,E) 

200 XD=XC+R 340 IF E=0 THEN 330 

210 P=ATN(1)/45 350 CALL PEEKV(-32768 ,X) 


220 A=Â+DA 


EE 


Routine BITMAP 
appelée par 
CALL LINK 
CBITMAP") 


7000 AORG >7D00 36024 
R2,)1410 
7000 DATA >0002,)01E0 RO ,>0020 
7002 36024 
7004 DATA >0206,)03FF RO,>1900 
7006 RO 
7008 DATA >0403,)0536 >7D42 R2 
7004 RO,)1877 >7D8E 
7D0C DATA >0603,)0700 RO,>1B00 
7D0E Ri,)2000 
7010 LI R1,)7D00 R1,>D000 
7012 3) 6024 
7014 LI R2,)0008 36024 
7D16 RO 
7018 MOV #R1+ ,RO R1,)2000 R2,F000 
7D1A 26034 
7D1C >7058 #R11 
7D1E R2 RO, 2000 
7020 >7D18 
7D22 RO,>1800 R2,)1800 
7D24 
7026 R2,)0003 36024 
7028 
7D2A RI RO 
7D2C 26024 R2 
702E >?DéC 
7030 RO RO 
7032 R1,)0100 R2,)0388 
7D34 
7036 >?D2C 26024 
7038 R2 
7034 >7D2A RO 
7D3C RO,>1820 R2 
703E >707C 
7040 Ri RO ,>03F0 





Routine DROITE 
appelée par 
CALL LINK 

CODROITE",YD.XD, 


YA. XA) 


7E2A 
7E2C 
7E2E 
730 
7E32 
7E34 
7E36 
7E38 
7E34 
7E3C 
7E3E 
°7E40 
7E42 
7E44 
7Edé 
7E48 
7E4A 
7E4C 
7E4E 
7E50 
7E52 
7E54 
7E56 
7E58 


C3CB 
04C0 
0201 
0001 
0420 
6044 
0420 
601C 
1200 
CZAG 
8348 
0581 
0420 
6044 
0420 
é01C 
1200 
Cz60 
834 
0581 
0420 
6044 
0420 
é01C 


MOV 
CLR 
LI 
BLWP 
BLWP 


DATA 
MOV 


INC 
BLWP 


BLWP 


DATA 
MOV 


INC 
BLWP 


BLWP 


R11,R15 
RO 
R1,)0001 
26044 
3)601C 


>1200 
328348,R10 


Ri 
36044 


2)601C 


»1200 
2)834A,R9 


Ri 
36044 


a)601C 


Routine POINT 
appelée par 
CALL LINK 

CPOINT”1Y.X) 


7D8À 
7DAC 
7DÀE 
7DB0 
7DB2 
7DB4 
7DBé 
7DB8 
7DEÀ 
7DBC 
7DBE 
7DC0 
7DC2 
7DC4 
7DCé 
7DC8 
7DCÀ 
7DCC 
7DCE 
7DD6 
7002 


04C0 
0201 
00G1 
0420 
6044 
0420 
601C 
1200 
CZAC 
834 
0581 
0420 
6044 
0420 
6é01C 
1200 
C260 
834 
0203 
8000 
0289 


CLR 
LI 


BLWP 


BLWP 


DATA 
MOV 


INC 
BLWP 


BLWP 


DATA 
MOV 


LI 


CI 
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RO 
R1,0001 


26044 
a)601C 


>1200 
23834À,R10 


RI 
36044 


3)601C 


»1200 
38344 ,R9 


R3,)8000 


R9,)00FF 


>1200 
4)834À,R14 


RI 
26044 


2601C 


>1200 
38348 ,R13 


R12 
R5,20001 


Ré,0001 


R13,R7 
R9,R?7 
»7E82 
»7E86 
RS 

R7 
R7,R7 
>7E8C 


>7E28 
R?,)0008 


»7E28 
R10,>00BF 


>7E28 

R9 ,RO 

RO ,3 
R10,RI 
Ri,3 
R1,5 

Ri ,RO 
RO,>1800 


RI 
3)602€ 


R1,5 
R10 ,RO 


SETO R12 
MOV  R14,R8 
S  RiO,R8 
JLT )7E94 
JMP _}7E98 
NEG Ré 
NEG R& 
BL 9)7DCE 


C  R9,R13 
JNE  )7EAé 

C  R10,R14 
JNE )7Eñé 

B  xR15 
MOV  R12,R12 
JLT )7EB0 

A  R5,R9 

S  R8,R12 
JMP  )7E98 
A  Ré,R10 
A  R7,R12 
JMP  )7E98 
JMP  )7E94 


RO,6 
RO, 11 
RO ,RI 
R9,RO 
RO,)0007 


R3,0 
R10 ,RO 
RO, >0007 


R1 ,RO 
2)602C 


R3,RI 
2) 6024 


RO ,)2000 


R2,RI 
26024 


#R11 





Routine COLOR 
appelée par 
CALL LINK 
CEOLOR",C) 


7EB8 04C0 CLR RO 

7EBA 0201 LI  R1,)0001 
7EBC 0001 
7EBE 0420 
7EC0 6044 
7EC2 0420 
7EC4 601C 
7ECé 1200 
7EC8 COAD 
7ECA 834 
7ECC 06C2  SWPB RZ 
7ECE 045B B #R11 


BLWP 36044 


BLWP 9)601C 


JLE 
MOV 


>7EC8 
2)834À,R2 


Table REF/DEF 
Le pointeur de 
début de table est 
en >701E 


7FD0 AORG  >/7FD0 
7FD0 
7FD2 
7FD4 
7FDé 
7FD8 
7FDA 
7FDC 
7FDE 
7FE0 
7FE2 


TEXT ‘COLOR ‘ 


>7EB8 
“DROITE” 


>7E2À 
“POINT ‘ 


DATA >7DfA 
TEXT ‘BITMAP’ 
DATA >7D10 
ACRG )>701E 
DATA >7FD0 


END 


RS | 


Le train sifflera trois fois... 


Denise Amrouche, Gilbert Arribet et Jean Sahal 


dès qu'il sera en vue de la bourgade 
dont vous êtes le chef de gare. Mais les 
choses se compliquent lorsque deux 
trains arrivent en même temps et 
doivent se croiser. En effet, à cet 
endroit, la gare est traversée par une 
voie unique et vous disposez d'une voie 
de garage tout juste assez grande pour 
contenir la locomotive et un autre 
wagon, et rien de plus. Pour corser le 
tout, les chauffeurs de locomotive ne 
comprennent pas le français. (vous 
avez compris, c'est parce qu'ils veulent 
que vous  perfectionniez votre 
anglais |). 


Votre mission, si vous l'acceptez, 
consistera donc à diriger la manœuvre 
compliquée qui permettra à chaque 
train de poursuivre sa route. Pour cela, 
vous envoyez des messages successifs 


aux chefs de train concernés. Dans la 
mesure où votre message est rationnel 
et compréhensible, il est exécuté et 
vous assistez à l'opération. Dans le cas 
contraire, rien ne se passe et vous 
recevez un message d'explication qui 
apparaît sur votre téléscripteur. Toute 
erreur est comptabilisée. Si vous 
provoquez une collision, vous êtes 
renvoyé. Si vous faites très peu 
d'erreurs, courez vite vous faire 
embaucher par les chemins de fer 
britanniques. 


Une recommandation utile : lorsque 
vous envoyez un message, 
assurez-vous que vous ne vous êtes pas 
trompé de destinataire. C'est LEW 
(avec un ‘L' comme ‘“Londres') qui 
conduit la locomotive qui se dirige 
vers Londres; BOB (avec un “B* comme 
"Bristol") qui a la charge de la 


locomotive à destination de Bristol. 
Pour ceux qui ont des lacunes en 
géographie, Londres est à l'est, Bristol 
est à l'ouest. 


Du point de vue pédagogique, ce 
programme permet de comprendre in 
situ, un point de grammaire anglaise 
délicat : l'emploi de certains verbes de 
mouvement, ceci au moyen d'une 
simulation rendue possible grâce aux 
nombreuses possibilités graphiques et 
sonores du TI-99 associé au Basic 
Etendu. Rien n'y manque : le teuf teuf 
de la locomotive, le crépitement des 
téléscripteurs, le fracas éventuel en 
cas de collision et même le leit-motiv 
du célèbre film avec Gary Cooper et 


Grace Kelly. 


Ü 





:)7) MAGAZINE n° 8 


100 ! DEVENEZ CHEF DE GARE À LONDRES 
110 :! 
120 ! 
130 ! 
AL 
140 ! 
150 ! 
160 
170 ! 
180 CALL CHAR(136,"0F18103000783033337FF 
FFF7F3B7BF900B040003F2424243CFFFFFFFFDED 
E8C") 
190 CALL CHAR(140,"00000000007F7F7F7F7F7 
F7FFF9E1E0CO000000000FEFEFEFEFEFEFEFF 797 
830") 
200 CALL CHAR(120,"0609003CE424243FFFFFF 
FFFFFFB79303C409E0COCCCFEFFFFFEFCDEDFCO8 
000") 
210 CALL CHAR(124,"0815123000783033337FF 
FFF7F3B79F84080073C2424273FFFFFFFFEDECCS8 
Ge 
220 CALL CHAR(116,"0000000000077F7F7F7F7 
F7F7F5E8C80000000003EFEFEFEFFFFFDF8783") 
230 CALL CHAR(108,"917139218120CC2C40E2F 
A20002DCDC0C3C3Cé690101010D00101F903973E8 
C88") 
240 CALL CLEAR :: CALL SCREEN(3):: 
MAGNIFY(3) 
250 DISPLAY AT(15,1):" 
ER GAME" 
260 GOSUB 470 :: CALL SCREEN(8) 
270 DISPLAY AT(17,1):"YOU ARE THE STATIO 
N MASTER" :"O0F À SMALL AND QUIET RAILWAYS 
TATION. BY THE WAY WHAT 15" 
280 DISPLAY AT(20,1):"YOUR NAME?" :: ACC 
EPT AT(20,12)SI12E(9)VALIDATECUALPHA)BEEP 
:NOM$ :: DISPLAY AT(20,1):" " 
290 MMS=NOM$S&" — MESSAGE RECIEVED - PRES 
S ANY KEY TO START THE MOTION.” 
300 DISPLAY AT(15,1):"":"SOMETIMES YOU S 
EE THE TRAIN COMING FROM BRISTOL ON ITS 
WAY TO LONDON" :"" 
310 GOSUB 1160 :: 
1400 :: CALL LHAU :: 
DELSPRITEK(ALL) 
320 DISPLAY AT(15,1):"":"":"SOMETIMES YO 
U SEE THE LONDONTRAIN GOING TO BRISTOL": 


330 GOSUB 1160 :: 


PAR DENISE AMROUCHE ET JEAN SAH 


T1 99/4À BASIC ETENDU 


CALL 


THE STATION MAST 


CALL DEL(400) :: 
GOSUB 1200 :: 


GOSUB 
CALL 


CALL DEL(é600):: GOSUB 
1430 :: CALL BBAS :: GOSUB 1200 :: CALL 
DELSPRITE(ALL):: CALL TOUCH 

340 DISPLAY AT(15,1):"":"NOTHING REALLY 
HAPPENS .,., YET.,..OCCASIONALLY YOU MAY 
HAVE SOME PROBLEMS" :*":"HERE IS ONE EXA 

PELLE "F7 


:)}!) MAGAZINE n° 5 


350 CALL DEL(200):: GOSUB 1400 
1430 :: 
1160 
360 GOSUB 1450 

370 CALL DEL(150):: CALL BLAN :: DISPLAY 
AT(17,1):"6GO00D JOB " ;:NOM$:"THANKS HEAVE 
NS!":"WE HAD À NARROW ESCAPE" :: CALL DE 
L(200):: CALL TOUCH 


:: GOSUB 
CALL LHAU :: CALL BBAS :: GOSUB 


380 GOSUB 1570 
390 DISPLAY AT(15,1) :"CONGRATULATIONS NO 
W YOU RE READY TO SEND MESSAGES OF YO 
UR OUN WITHOUT ANY HELP. 


WELL GO AHEAD. 


400 GOSUB 1400 :: 
CALL TOUCH 

410 FOR MOVE=1 TO 10 

420 DISPLAY AT(15,1)S1ZE(11):"MOVE NR."& 
STR$(MOVE)&":" :: GOSUB 1680 :: ON MOVE 
GOSUB 700,750,790,840,880,930,980 ,1020 ,1 
070,1120 

430 NEXT MOVE 

440 CALL BLAN :: DISPLAY AT(15,1):NOM$:" 
YOU ‘VE DONE IT!'!..." 

450 GOSUB 1290 :: CALL CLEAR :: CALL DEL 
SPRITE(ALL):: STOP 

460 ! CONFECTION DE LA VOIE 

470 CALL COLOR(13,2,4,11,2,4,10,2,4) 

480 CALL CHAR(128,"00010FFCE0031FF83EF08 
10F7CE00000073EF080000000000000000000000 
007*) 

490 CALL CHAR(112,"00FFOF7CFFO31FF83EF08 
00FFCE0000000FF0000FF0000070") 

500 CALL CHAR(132,"00000000031FF8C0C0000 
0000000000000FF0000FF00000000FF0000FF1EF 
8C") 

510 CALL CHAR(104,"00000000011F3D6CCCFFF 
FFFFF") 

520 CALL HCHAR(1,1,115,416) 

530 FOR 1=0 TO 9 

540 CALL HCHAR(13-1,1+3*1,128):: CALL HC 
HAR(13-1,243#1,129):: CALL HCHAR(13-1,3+ 
3#1,130):: CALL HCHAR(13-1,4+3x1 ,133) 
550 CALL HCHAR(12-1,2+3%1,131):: CALL HC 
HAR(12-1,3+3%1,132):: NEXT 1 

560 CALL HCHAR(3,31,128):: CALL HCHAR(3, 
32,129):: CALL HCHAR(2,32,131) 

570 CALL HCHAR(7,11,104):: CALL HCHAR(8, 
11,105) 

580 CALL HCHAR(8,12,134,2):: CALL HCHAR( 
8,14,114):: CALL HCHAR(8,15,135):: CALL 
HCHAR(8,16,112):: CALL HCHAR(S8,17,113) 
590 RETURN 

600 :TRADUCTION DES MESSAGES EN MOUVEMEN 
é 

610 !0 


GOSUB 1430 :: ER=0 :: 
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4e 


620 CALL ORDR(REP$ ,"LEW" , "PUSH" ," TRAIN", 
"BACK" ,TEST,RF$% ,ER) :: IF TEST=0 THEN 640 
630 CALL BANDE(24,MM$,1):: CALL LBAS :: 
CALL LOCALS(1,75):: CALL ALT :: RETURN 
640 GOSUB 1730 :: GOTO 620 

650 !'00 

660 CALL ORDR(REP$,"BOB" ," PUSH" ," TRAIN", 
"BACK" ,TEST,RF$,ER):: IF TEST=0 THEN 680 
670 CALL BANDE(24,MM$,1):: CALL BHAU :: 


CALL LOCALI(4,18):: CALL ALT :: CALL BLA 


N :: RETURN 
680 GOSUB 1730 
690 !1 

700 CALL ORDR(REP$ ," BOB" , "PULL" ,"THE YEL 
LOW VAN" ,"INTO THE SIDING" ,TEST,RF$ ,ER) : 
: IF TEST=0 THEN 730 

710 CALL BANDE(24,MM$,1):: FOR W=4 TO 5 
5: CALL BAS(W):: NEXT W :: CALL LOCALS(4 
545) :: CALL PATTERN(#H4,136):: CALL GAU(4 
) 

720 CALL LOCALS(5,45):: CALL PATTERN(HS, 
140):: CALL GAU(5):: CALL XLOCI(4,96):: 
CALL ALT :: CALL BLAN :: RETURN 

730 GOSUB 1730 :: GOTO 700 

740 !'2 


:: GOTO 660 


750 CALL ORDR(REP$ ,"LEW" , "PULL" ," TRAIN", 
"PAST THE SIDING" ,TEST,RF$,ER):: IF TEST 


=0 THEN 770 

760 CALL BANDE(24,MM$,1):: CALL LHAU :: 
CALL LOCALI(1,35):: CALL ALT :: CALL BLA 
N :: RETURN 

770 GOSUB 1730 :: 
780 !3 

790 CALL ORDR(REP$ ,"LEW" , "PULL" ,"THE YEL 
LOW VAN *,"OUT OF THE SIDING" ,TEST,RF$,E 
R):: IF TEST=0 THEN 820 

800 CALL BANDE(24,MM$,1):: CALL DTE(5):: 
CALL LHAU :: CALL XLOCS(1,176):: CALL P 

ATTERN(#5,116):: CALL HAU(5) 

810 CALL LOCALI(1,28):: CALL ALT :: 
BLAN RETURN 

820 GOSUB 1730 :: GOTO 790 

830 !'4 

840 CALL ORDR(REP$ ,"LEW" , "PUSH" ," *,"BAC 
K®,TEST,RF$,ER):: IF TEST=0 THEN 860 

850 CALL BANDE(24,MM$,1):: CALL BAS(5):: 
CALL LBAS :: CALL LOCALS(1,60):: CALL À 
LT :: CALL BLAN :: RETURN 

860 GOSUB 1730 :: GOTO 840 

870 !5 

880 CALL ORDR(REP$,"BOB" ,"MOVE" ," *,"OUT 
OF THE SIDING",TEST,RFS$,ER):: 1F TEST=0 
THEN 910 

890 CALL BANDE(24,MM$,1):: CALL DTE(4):: 
CALL XLOCS(4,126):: CALL PATTERN(#4,124 


GOTO 750 


CALL 


“T OF THE SIDING",TEST,RF$,ER) : : 


):: CALL HAU(4):: CALL LOCALI(4,12):: CA 

LL ALT 

900 CALL BLAN :: 

910 GOSUB 1730 

920 !'é 

930 CALL ORDR(REP$,"BOB" ," PULL" ,"THE BLU 

E VAN ‘ ,"INTO THE SIDING" ,TEST,RF$ ,ER) : : 
IF TEST=0 THEN 960 

940 CALL BANDE(24,MM$,1):: CALL BAS(é):: 
CALL BAS(4):: CALL LOCALS(4,45):: CALL 

PATTERN(#4,136):: CALL GAU(4):: CALL LOC 

ALS(é,45) 

950 CALL PATTERN(Hé,140):: CALL GAUKé):: 
CALL XLOCI(é,114):: CALL ALT :: CALL BL 

AN :: RETURN 

960 GOSUB 1730 

970 !7 

980 CALL ORDR(REP$,"LEW" ,"PULL",”" ","PAS 

T THE SIDING",TEST,RF$,ER):: IF TEST=0 T 

HEN 1000 

990 CALL BANDE(24,MM$,1):: CALL LHAU :: 
CALL HAU(5):: CALL LOCALI(1,27):: CALL À 
LT :: CALL BLAN :: RETURN 

1000 GOSUB 1730 :: GOTO 980 

1010 !'8 

1020 CALL ORDR(REP$ ,"LEW" ," PULL" ,"THE BL 
UE VAN ‘,"OUT OF THE SIDING" ,TEST,RF$ ,ER 
):: 1F TEST=0 THEN 1050 

1030 CALL BANDE(24,MM$,1):: CALL DTE(é): 
: CALL LHAU :: CALL HAU(S5):: CALL XLOCS( 
1,199):: CALL PATTERN(#é,116):: CALL HAU 
(6) 

1040 CALL LOCALI(1,10):: 
L BLAN :: RETURN 
1050 GOSUB 1730 
1060 !9 

1070 CALL ORDR(REP$,"BOB" ,"MOVE" ," *,"OU 

1F TEST= 


RETURN 
:: GOTO 880 


:: GOTO 930 


CALL ALT :: CAL 


:: GOTO 1020 


0 THEN 1100 
1080 CALL BANDE(24,MM$,1):: CALL DTE(4): 
: CALL XLOCS(4,128):: CALL PATTERN(#4,12 


°4):: CALL HAU(4):: CALL LOCALI(4,40):: C 


ALL ALT 

1090 CALL BLAN :: RETURN 

1100 GOSUB 1730 :: GOTO 1070 

1110 10 

1120 CALL CRDR(REP$,"BOB" ," PULL" ," *,"AU 
AY", ,TEST,RF$,ER):: IF TEST=0 THEN 1140 
1130 CALL BANDE(24,MM$,1):: CALL BAS(4): 
: CALL BAS(é6):: CALL BAS(5):: CALL LOCAL 
S(4,70):: CALL ALT :: CALL BLAN :: RETUR 
N 

1140 GOSUB 1730 :: 
1150 ! SIFFLET 


GOTO 1120 





:):)MAGAZINE n°6 


1160 CALL SOUND(100,770,5,800,5,750,5):: 

CALL DEL(50) 

1170 CALL SOUND(1500,770,0,800,0,750,0) 

1180 RETURN 

1190 ! TEUF-TEUF 

1200 D=190 :: U=0 

1210 FOR 1=1 TO é 

1220 IF I=1-3*(1=4)THEN D=D+*2 

1230 CALL SOUND(D,-5,V,110,U) 

1240 IF 1=1-3*(1=4)THEN D=D/2 

1250 NEXT 1 

1260 IF D<20 THEN RETURN 

1270 D=D/1.25 :: V=U+,5 :: GOTO 1210 

1280 ! LE TRAIN SIFFLERA TROIS FOIS 

1290 DATA 165,1,220,1,247,1,277,1,220,1, 

294,1,277,1,247,1,220,6 

1300 DATA 220,1,247,1,277,1,247,1,220,3, 

185,4,247,5,185,1,247,1,277,1 

1310 DATA 294,1,247,1,330,1,294,1,277,4, 

370,4,349,8,330,9 

1320 DATA 165,1,220,1,247,1,277,1,220,1, 

294,1,277,1,247,1,220,6 

1330 DATA 220,1,220,1,247,1,277,1,220,1, 

330,1,220,1,370,7,370,1,370,1,415,1,440, 

2 

1340 DATA 415,1,370,1,330,1,220,6,220,1, 

220,1,247,1,277,1,330,4,220 ,1 

1350 DATA 220,1,277,1,330,2,330,1,277,1, 

220,2,247,2,220,6 

1360 FOR 1=1 TO 66 :: READ F1,D 

1370 CALL SOUND(D*275,F1,0,F1#1.94,15,F1 

*,994,3) 

1380 NEXT 1 :: RETURN 

1390 ! CREATION DU TRAIN ALLANT À LONDRE 

S 

1400 CALL SPRITE(#1,120,2,78,31,42,116,7 

,84,16,#3,116,7,89,1) 

1410 RETURN 

1420 ! TRAINS VENANT DE LONDRES 

1430 CALL SPRITE(#4,124,02,17,213,45,116 

,111,13,229,#6,116,5,8,245):: RETURN 

1440 ! TESTER DANGER D’EXPLOSION 

1450 CALL BLAN :: CALL SOUND(80,770,5,80 

0,5,750,5):: DISPLAY AT(17,1):"QUICK ":M 

EC$:"PRESS ANY TOUCH TO AVOID ":" A 

DISASTER" 

1460 CALL COINC(#1,H4,15,CC):: CALL KEY4 

0,K,S):: IF S<)0 THEN 1490 

1470 1F CC=-1 THEN 1480 :: GOTO 1450 

1480 CALL EXPLO :: GOTO 1510 

1490 CALL ALT :: RETURN 

1500 CALL KEY(0,K,S):: IF S=0 THEN 1500 

ELSE 1470 :: RETURN 

1510 DISPLAY AT(15,1):"W À N T E D" 
"DEAD OR AL IVE": :NOM$: :"TH 


‘):) MAGAZINE n° 6 


E STATION MASTER" :"WHO CAUSED À DISASTE 
R" 

1520 CALL TOUCH :: CALL CLEAR :: CALL DE 
LSPRITE(ALL) 

1530 PRINT "VACANCY "::: 
ON MASTER REQUIRED HIGH": 
ING SPECIAL TO ": 
RAINS" : : 

1540 PRINT “PASS BY AND OCCASIONALLY USE 
“+: :"À SIDING PROPERLY. PLENTY OF": :"TI 
ME FREE TO PLAY WITH YOUR": : 

1550 PRINT “PERSONNAL COMPUTER.APPLY TO" 
: :"BRITISH RAILWAYS - LONDON": : : : : 
: CALL TOUCH 

1560 CALL CLEÂAR :: CALL SCREEN(3):: REST 
ORE :: GOTO 260 

1570 DISPLAY AT(15,1):"NOW YOUR WORK BEG 
INS.SEND TOEACH ENGINE DRIVER MESSAGES À 
BOUT HOW TO USE THE SIDING IN ORDER TO P 
ASS. IT 1S BIG" 

1580 DISPLAY AT(19,1):"ENOUGH TO HOLD ON 
E ENGINE AND ONE WAGON ONLY." :: CALL 
TOUCH 

15790 DISPLAY AT(15,6):"NOW LET’S SEE IF 
YOU CAN" :"SEND À MESSAGE CORRECTLY ," :"TH 
ERE WILL BE SOME WORDS ON THE SCREEN TO 
HELP YOU" 

1600 CALL TOUCH 

1610 DISPLAY AT(1,1)S12E(27):"INTO/OUT 0 
F/PAST THE SIDING" 

1620 DISPLAY AT(2,1)S1ZE(24) : "MOVE-PUSH- 
PULL-AWAY -BACK" 

1630 DISPLAY AT(3,1)S12E(14):"THE/YOUR T 
RAIN" 

1640 DISPLAY AT(4,1)S12E(14):"THE YELLOW 
VAN" 

1650 DISPLAY AT(5,1)S12E(12):"THE BLUE V 
êN" 

1660 DISPLAY AT(15,1):"TELL LEW TO MOVE 
BACK À BIT" :: GOSUB 1690 :: GOSUB 610 
1670 DISPLAY AT(15,1):"NOW TELL BOB THE 
SAME." :: GOSUB 1690 :: GOSUB 650 :: GOT 
0 390 

1680 DISPLAY AT(15,12):"TYPE YOUR MESSAG 
E" 

1690 DISPLAY AT(16,1):"USE MOSTLY THE WO 
RDS ON THE SCREEN; 2 LINES AVAILABLE P 
RESS ENTER AFTER EACH LINE NO SPLIT EXPR 
ESSIONS :" 

1700 DISPLAY AT(21,1):"T0: ":"(CONT.): " 


:" STATI 
:*SALARY. NOTH 
:*D0, JUST WATCH THE T 


1710 ACCEPT AT(21,04)VALIDATE(UALPHA)SIZ 
E(-28)BEEP :REP1% 
1720 ACCEPT AT(22,09)VALIDATE(UALPHA)S12 


E(-28)BEEP:REP2$ :: REP$=REPI$&" "&REP2$ 
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:: RETURN 
1730 CALL BANDE(24,NOMS£&RFS$,1):: GOSUB 1 
710 :: RETURN 
1740 'SERIE DE CALL CECI OU CELA 
1750 SUB EXPLO :: CALL ALT :: CALL BLAN 
:: CALL SOUND(1000,-6,0,200,0):: FOR SC= 
1 TO 15 :: FOR T=1 TO 5 :: NEXT T :: CAL 
L SCREEN(SC):: NEXT SC 
1760 CALL SCREEN(10):: CALL PATTERN(#1I,1 
08,#2,108,#4,108,#5,108) 
1770 XLOC=INT(RND*#15+120):: YLOC=INT(RND 
*#150+1):: CALL LOCATE(#1,YLOC,XLOC) 
1780 XLOC=INT(RND#15+150) :: YLOC=INT(RND 
#150+1):: CALL LOCATE(#4,YLOC,XLOC) 
1790 XLOC=INT(RND#15+120):: YLOC=INT(RND 
*150+1):: CALL LOCATE(#2,YLOC,XLOC) 
1800 XLOC=INT(RND*#20+100):: YLOC=INT(RND 
*#150+10):: CALL LOCATE(#5,YLOC,XLOC) 
1810 SUBEND 
1820 SUB TOUCH 
1830 DISPLAY AT(24,1):"PRESS ANY KEY TO 
GO ON" 
1840 CALL KEY(0,K,S):: IF S<)1 THEN 1840 
1850 CALL BLAN 
1860 SUBEND 
1870 'MOUVEMENT DES TRAINS 
1880 SUB BAS(W) VERS BRISTOL 
1890 CALL MOTION(#HW,2,-6):: SUBEND 
1900 SUB LBAS !TR VERS LDRES DESCEND 
1910 FOR W=3 TO 1 STEP -1 :: CALL MOTION 
(#U,2,-6):: NEXT W :: SUBEND 
1920 SUB BBAS !'TRAIN VERS BRISTOL DESCEN 
D 
1930 FOR W=4 TO 6 :: CALL MOTION(#HUW,2,-6 
):: NEXT W :: SUBEND 
1940 ! 
1950 SUB HAU(W)'VERS LONDRES 
1960 CALL MOTION(HUW,-2,6):: SUBEND 
1970 SUB LHAU !TR DE LONDRES MONTE 
1980 FOR W=1 TO 3 :: CALL MOTION(HY,-2,6 
):: NEXT W':: SUBEND 
1990 SUB BHAU !'TR DE BRISTOL MONTE 
2000 FOR W=4 TO 6 :: CALL MOTION(HUW,-2,6 
):: NEXT W :: SUBEND 
2010 ! 
2020 SUB DTE(W)'SORTIE DE SD 
2030 CALL MOTION(#Y,0,6):: SUBEND 
2040 SUB GAU(W)'ENTRE DS SD 
2050 CALL MOTION(HYW,0,-6):: SUBEND 
2060 SUB STO(W) 'LENUMERO DU SPRITE 
2070 CALL MOTION(#W,0,0):: SUBEND 
2080 SUB ALT 'ARRET TOTAL 
2090 FOR W=1 TO 6 :: CALL MOTION(HW,0,9) 
:: NEXT W :: SUBEND 


: DISPLAY AT(14,1):"": : 
:: SUBEND 
FOR T=i TO D 


2100 SUB BLAN 


5: NEXT T 


d : 


2110 SUB DELK(D 
:: SUBEND 

2120 SUB BANDE(LI ,M$,VIT) 

2130 BAS=RPTS(" ",28)8M$ 

2140 FOR 1=1 TO LEN(BAS):: DISPLAY ATLI 
51):SEG$(BA$,1,28):: CALL SOUND(VIT,4000 

0,0):: CALL KEY(0,K,S):: IF S<)>0 THEN GO 

SUB 1160 :: GOTO 2160 

2150 NEXT I :: GOTO 2140 

2160 DISPLAY AT(24,1):"" 

2170 SUB LOCALS(UW,XX) 

2180 CALL POSITIONCHU,X,Y):: 

EN 2190 ELSE 2180 

2190 SUBEND 

2200 SUB LOCALI (W,XX) 

2210 CALL POSITIONCHU,X,Y):: IF X<=XX TH 

EN 2220 ELSE 2210 

2220 SUBEND 

2230 SUB XLOCI(W,XX) 

2240 CALL POSITIONCHU,X,Y):: IF Y<=XX TH 

EN 2250 ELSE 2240 

2250 SUBEND 

2260 SUB XLOCS{(W,XX) 

2270 CALL POSITIONCHU,X,Y):: IF Y)>=XX TH 

EN 2280 ELSE 2270 

2280 SUBEND 

2290 SUB ORDR(REP$ ,DR$ ,VE$ ,CPL$ ,ADV$ ,TES 

T,RF$ ,ER) 

2300 DR=POS(REP$ ,DR$, 1) 

2310 VE=POS(REP$ ,VES$,1) 

2320 CPL=POS(REPS$,CPL$,1) 

2330 ADV=POS(REP$ ,ADV# , 1) 

2340 TEST=DR*VExCPLxADU :: 

N ER=ER+I 

2350 ERR$="BY THE WAY,YOU MADE "&STR$(ER 


: SUBEND 


IF X)>=XX TH 


IF TEST=0 THE 


7 )&" MISTAKE"&CHR$S(-83#(ER)1))&"." 


2360 RF$=" USE THE ABOVE EXPRESSIONS UNS 
PLIT MAINLY: "&ADUS&" —- "&VES£&" — *"&" DR 
IVER’S. NAME ."&ERR$&"- PRESS ANY KEY TO 
GET ANOTHER CHANCE - * 

2370 SUBEND 
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Présentation 


Ce programme de comptes familiaux 
offre la possibilité de gérer avec le TI, 
sur disquette, mois par mois et 
rubrique par rubrique, les recettes et 
dépenses de la famille, et cela pendant 
17 années non obligatoirement 
consécutives. 


A partir des entrées effectuées, le TI 
pourra afficher l'état des comptes, les 
bilans mensuels où annuels, l'évolution 
des recettes et dépenses sur une année 
ou l'évolution annuelle d'une rubrique 
choisie parmi les 18 disponibles en 
recettes où les 18 disponibles en 
dépenses. 


Configuration 


Il est nécessaire de disposer, avec le 
TI-99/4A, du module “Basic Etendu', 
de l'extension de mémoire et d'un 
lecteur de disquettes. Une imprimante 
serait bienvenue, mais la routine 
correspondante n'est pas développée 
(voir paragraphe “Impression des 
résultats"). 


Utilisation 


appel 


Une disquette complète est réservée à 


la gestion des comptes, ce qui permet: 


de nommer le programme "DSK1.LOAD" 
de manière à ce qu'il soit chargé 
automatiquement à la mise en route du 
Basic étendu. 


Menu principal 


Après une phase d'initialisation, 
pendant laquelle les variables sont 
préparées et la structure des comptes 
lue en mémoire, le menu principal est 
affiché. 7 options sont proposées; il en 
existe une huitième qui n'est pas 
affichée car elle est dangereuse : il 
s'agit de l'option O (voir paragraphe 
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suivant). On choisit une option en 
tapant le numéro correspondant suivi 
par <ENTERy. 


A la fin de chaque fonction, le 
programme revient au menu principal. 


Quand on revient dans une fonction 
déjà exécutée, y compris dans le menu 
principal, les réponses  tapées 
précédemment sont affichées à 
nouveau. Il suffit de taper <ENTER> 
pour les prendre en compte à nouveau. 


Initialisation 
(option 0) 


ATTENTION cette option est 
dangereuse; c'est pourquoi elle 
n'apparaît pas dans le menu. Elle est 
essentiellement utile en période de 
test. Elle permet de réinitialiser les 
fichiers utilisés par le programme. 
Toutes les informations précédemment 
Saisies sont perdues dès que l'on a 
répondu “O" à la demande de 
confirmation. 


Entrée des rubriques 
(option 1) 


On dispose de 18 rubriques en recettes 
et 18 en dépenses. Chaque rubrique a un 
nom de 18 caractères et une 
abréviation de 4 caractères (utilisée 
dans les bilans, voir paragraphe “Bilan 
comptable"). 


Le programme affiche les 10 premiers 
caractères de chaque rubrique. Les 
noms des rubriques non définies sont 
remplacées par des points. Chaque 
rubrique est numérotée. 

Il demande ensuite le type de rubrique 
à créer ou à modifier (*1" pour recettes 
ou "2" pour dépenses), puis le numéro 
de la rubrique concernée (1 à 18). Si la 
rubrique est déjà définie, il affiche 
son nom et son abréviation. On peut 
alors entrer un nouveau nom (sur 18 
caractères maximum) et une nouvelle 
abréviation (sur 4 caractères 
maximum). Si on ne rentre aucun 
caractères pour le nom, la rubrique est 
annulée et l'abréviation n'est pas 
demandée. 


On peut modifier plusieurs rubriques 
successivement en répondant “O0” à la 
question “ENCORE (O/N). Quand on 
répond "N”, le fichier des rubriques est 
mis à jour et le programme revient au 
menu principal. 


Les options suivantes (options 2 à 6) 


ne peuvent pas être appelées tant que 
le fichier des rubriques n'est pas créé. 


Entrée des comptes 
(option 2?) 


Le programme commence par demander 
l'année (sur 2 chiffres), le mois (de 1 à 
12) et le type de rubriques (*1" pour 
Recettes ou "2" pour Dépenses) 
concernés. Après avoir chargé en 
mémoire les comptes correspondants 
(s'ils existent), il demande si on désire 
modifier le montant d'une rubrique ou 
de toutes. 


Si on répond "O0" à cette question, il 
demande la rubrique concernée après 
avoir affiché, pour mémoire, le numéro 
et le nom (les 10 premiers caractères) 
des rubriques. On peut alors mettre à 
jour cette rubrique. Le nouveau 
montant est affiché immédiatement. 
Quand on ne veut pas modifier le 
montant, il suffit de taper <ENTER». 


Ces modifications peuvent être 
effectuées tant que l'on répond "0" à la 
question “ENCORE (O/N)". On enregistre 
les modifications et on revient au 
menu principal en répondant “N” à cette 
question. 


Si on a répondu “N' à la question 
"MODIFICATION D'UNE RUBRIQUE”, le 
programme affiche toutes les 
rubriques pour ce mois et ce type et 
met le curseur en face du premier 
montant. On peut le laisser tel quel en 
tapant <ENTER> ou le modifier. Quand 
toutes les rubriques ont été passées en 
revue, si on répond “O0” à la question 
"CORRECT (O/N)", les nouveaux comptes 
sont enregistrés et on revient au menu 
principal, sinon on recommence la 
vérification. 
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Etat des comptes 
(option 3) 


Cette fonction indique, sous forme de 
tableau par année et par mois, les 
comptes déjà saisis. La lettre "R" est 
affichée si les recettes existent, la 
lettre “D” si les dépenses existent, le 
symbole “RD” si recettes et dépenses 
existent ou un tiret si les comptes 
correspondants n'ont pas été créés. 


On revient au menu principal en 
appuyant sur la touche <ENTER> (voir 
paragraphe “Impression des résultats"). 


Bilan comptable 
{option 4) 


La fonction demande si on souhaite 
obtenir le bilan correspondant à un 
mois donné ou à une année complète. |] 
faut répondre “1” pour un bilan mensuel 
(réponse par défaut) ou “2* pour un 
bilan annuel. Elle demande ensuite 
l'année désirée et, éventuellement, le 
mois. 


Après avoir fait les calculs 
correspondants, elle affiche l'ensemble 
des recettes et dépenses pour le mois 
ou l'année concerné, ainsi que les 
totaux et le solde. C'est dans cette 
fonction que sont utilisées les 
abréviations des noms de rubriques. On 
revient au menu principal en appuyant 
sur <ENTER) (voir paragraphe 
“Impression des résultats"). 


Evolution annuelle 
{option 5) 


Cette fonction permet de visualiser 
l'évolution, mois par mois, des 
recettes et des dépenses d'une année 
donnée (même si les comptes de 
l'année ne sont pas complets). 


Après avoir demandé l'année concernée, 
le système affiche un tableau 
indiquant le total des recettes et le 
total des dépenses de chaque mois, 
ainsi que les totaux et le solde 
annuels. 


Après que l'on ait appuyé sur <ENTER> 
(voir paragraphe ‘Impression des 
résultats"), le système affiche les 
mêmes résultats, mais sous forme d'un 
graphique en bâtons verticaux, les 
recettes vers le haut de l'écran et les 
dépenses vers le bas. Le graphique est 
gradué en dixièmes du montant le plus 


élevé et la valeur de l'unité de 
graduation est indiquée sous le 
graphique. On revient au menu principal 
en appuyant sur <ENTER> (voir 
paragraphe “Impression des résultats"). 


Evolution d'une rubrique 
(option 6) 


Il est possible, grâce à cette fonction, 
de connaître l'évolution, pour une année 
donnée, d'une rubrique quelconque. Le 
programme demande tout d'abord le 
type de rubrique (*1” pour recettes ou 
"2" pour dépenses) et l'année désirée. 
Après avoir affiché, pour mémoire, les 
numéros et libellés des rubriques (sur 
10 caractères), il demande le numéro 
de la rubrique que l'on souhaite voir 
évoluer. 


Le système affiche alors, mois par 
mois, les montants associés à la 
rubrique choisie, ainsi que la moyenne 
mensuelle et le total annuel. 


Quand on appuie sur <ENTER> (voir 
paragraphe "Impression des 
résultats"), le système montre 
l'évolution de la rubrique sous la forme 
d'un graphique en bâtons horizontaux. 
Ce graphique est gradué en vingtièmes 
du montant le plus élevé et la valeur de 
l'unité de graduation est indiquée sous 
le graphique. On revient au menu 
principal en tapant <ENTER> (voir 
paragraphe “Impression des résultats"). 


sortie du programme 
(option 7) 


Cette fonction permet bien 
évidemment de terminer la gestion des 
comptes. 11 est obligatoire de sortir 
par cette option car l'action des 
touches <BREAK> et <QUIT> est 
interdite. 


Impression des résultats 


Ce programme est particulièrement 
intéressant si on dispose d'une 
imprimante pour conserver les 
tableaux. A défaut d'en avoir, seul 
l'appel de l'impression est 
actuellement prévu. 


Cela doit se faire par appui sur les 
touches "Pet <ENTER> après 
l'affichage des tableaux (options 3, 4, 
5 et 6). La routine correspondante 
s'appelle “IMP_ECR" et n'a qu'à 
effectuer une recopie d'écran. 


Erreurs 


En cas d'erreur pendant l'exécution, le 
programme affiche le code d'erreur (cf. 
l'appendice N du manuel Basic Etendu) 
et le numéro de ligne et attend que l'on 
ait appuyé Sur <ENTER> pour se 
terminer. 


Le programme 


Structure du programme 


Le programme est organisé en modules 
distincts pour chaque fonction, 
respectivement : 


INITIALISATION lignes 
MENU PRINCIPAL lignes 
ERREURS lignes 
OPTION 0 lignes 
OPTION 1 lignes 
OPTION 2 lignes 
OPTION 5 lignes 1560 - 1680 
OPTION 4 lignes 1690 - 2000 
OPTION 5 lignes 2010 - 2360 
OPTION 6 lignes 2370 - 2750 
IMPRESSION lignes 2760 - 2810 


chacun de ces modules étant 
indépendant des autres pour des 
facilités de programmation et de 
corrections. 


100 - 530 
540 - 720 
730 - 760 
770- 850 
860 - 1020 
1030 - 1550 


Description des fichiers 


Fichier des rubriques 


Le nom de ce fichier est rangé dans 
dans la variable F_RUB$. 11 est défini 
en enregistrements de longueur 
variables de 48 octets chacun. I] 
contient 18 enregistrements. La 
structure de ces enregistrements est 
la suivante : 


e libellé recette 
e abréviation recette 
e |libellé dépense 
e abréviation dépense 


pour chacune des 18 
possibles. 


19 octets 
5 octets 
19 octets 
5 octets 


rubriques 


Fichiers des comptes 


Le nom de ce fichier est rangé dans la 
variable F_MONT$. 11 est défini en 
enregistrements de de longueur fixe de 
manière à pouvoir y accéder en accès 
direct. : La longueur des 
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enregistrements est de 162 octets, 
soit 18 nombres en représentation 
interne (9 octets chacun). Le contenu 
des enregistrements est différents 
selon leur position : 

* Enregistrement O 


Il permet de repérer les années 
existantes. Les 17 premiers nombres 
contiennent soit O, soit un numéro 
d'année créée. Si l'année existe, sa 
position dans cet enregistrement 
permet de pointer sur les 
enregistrements concernés (voir 
"Enregistrements 1 à 34"). Ceci permet 
de créer les années dans le désordre. 


Le dernier nombre donne le nombre 
d'enregistrements ‘existant dans le 
fichier, de manière à pouvoir en 
ajouter. 


+ Enregistrements 1 à 34 


Il existe deux enregistrements de ce 
type par année. Le premier pointe sur 
les recettes de l'année, le deuxième 
sur les dépenses. Seuls les 12 
premiers nombres sont utilisés. 11s 
contiennent respectivement pour 
chaque mois de l'année soit O, soit le 
numéro de l'enregistrement des 
comptes correspondants si ceux-ci 
existent. Ceci permet de créer les 
comptes mensuels dans le désordre. 

* Enregistrements 35 et 

suivants 

ls contiennent les montants saisis, 
soit en recettes, soit en dépenses, 
dans l'ordre des numéros de rubriques. 


Redéfinition des 
caractères 

Code 91 : dessin diagramme option 5, 
recettes. . 

Code 92 : double souligné. 

Code 93 : dessin diagramme option 5, 
dépenses. 
Code 94: dessin diagramme option 6. 
Code 95 : souligné et cadre tableaux. 
Code 124: cadre tableaux. 

Code 126 symboles recettes/ 


100 


120 
130 
140 
150 ! 
160 


EAK NEXT :: CALL INIT :: 
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En 
110 = COMPTES FAMILIAUX = 

M eee + PR PU 

1 

0 


(c) J.-Ph.Guillemant 


OPTION BASE 1 :: CALL CLEAR :: ON BR 
CALL LOAD(-3180 
6,1é6)!'interdire touches ‘clear’ & ‘’quit’ 
165 CALL LOAD(8196,62,248):: CALL LOAD(1 
6376,77,73,82,69,32,32,160,0):: CALL LOÂA 


dépenses, option 3. 

Codes 128 à 135 : bâtons recettes 
option 5, bâtons option 6. 

Codes 136 à 143 : bâtons dépenses 
option 5. 


Variables 


Toutes les variables sont réservées au 
début du programme. 


Variables générales 


Elles sont utilisées dans l'ensemble du 
programme. 


e FRUB Vrai (-1) si le fichier 
rubriques existe. Faux (0) 
sinon (valeur initiale). 
Nombre d'enregistre- 
ments du fichier comptes 
(vaut 35 à l'initialisa- 
tion). 
Déplacement de l'année 
dans l'enregistrement 0 
du fichier comptes: 
permet d'accéder aux 
enregistrements recettes 
et dépenses. 
Contient Je nom du 
fichier des rubriques. 
e F_MONT$ Contient le nom du 
fichier des comptes. 


A$, |, J et K sont des variables 
temporaires. 


e RECN 


e F_RUB$ 


Variables locales 


Pour plus de clarté, les variables 
suivantes sont affectées à chaque 
module en ajoutant le numéro du 
module au nom de la variable; cette 
technique permet également d'afficher 
la valeur précédente quand on revient 
dans une fonction : 


CHXO : option choisie dans le menu 
principal. 

NRI, NR2, NR6 : numéro de rubrique. 
RD1, RD2, RD6 : type de rubrique (*1” 
pour recettes, “2” pour dépenses). 

MA4 indicateur de traitement 


mensuel (“1”) ou annuel (2°). 

ANN2, ANN3S, ANN4, ANN5, ANN6 : 
année en traitement. 

MO152, MOIS4 : mois en traitement. 


Matrices 


Les matrices sont initialisées avec 
"OPTION BASE 1”. 


AN(17) : années existantes (copie de 
l'enregistrement © du fichier des 
comptes). : 

Indice pointeur sur les 
enregistrements recettes et dépenses 
(1 à 34) correspondant à l'année 
(OFF__AN). 


MO(2,12) pointeurs sur les 
enregistrements de comptes pour une 
année donnée (copie de 2 
enregistrements successifs 1 à 34 du 
fichier des comptes). 

ler indice : type de rubrique (RD?). 
2ème indice : mois (MOIS?). 


NOM _M$(12) 
l'année. 
Indice : numéro du mois (MOIS ?). 


RUBR$(2,18,2) : copie du fichier des 
rubriques. 


ler indice : type de rubrique (RN?). 
2ème indice : numéro de rubrique 
(NR?). 

3ème indice : 
abréviation (2). 


TOTAL(2) : totalisation des comptes. 
Indice : type de rubrique (RD?). 


MONT(13,2,19) contient les 
montants en cours de traitement. 

ler indice : mois (MOIS?). Si = 13, il 
s'agit d'une totalisation annuelle. 
2ème indice : type de rubrique (RD?). 
3ème indice : numéro de rubrique 
(NR?). Si = 19, il s'agit d'une 
totalisation par rubrique. 


: noms des mois de 


nom complet (1) ou 


O 


D(-24576,3,0,0,2,2,224,131,224,4,32,0,0) 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


IMAGE 


IMAGE #K HHRHHHHHHEH 

IMAGE ##HH.Hh# 

IMAGE H#RHHRH.HH 

IMAGE HHHRHHR.HH 

IMAGE HHHHIHHHHHNH.HNIHHHHHHE. HE 
IMAGE HRHHRHHRH:HHHRHHE. HR 

IMAGE RECHHHHHHH.HRIDEPHHHHHHEH.HH | 
1 U.=H##RHH.H# 

Imatrices & variables 

DIM RUBR$#(2,18,2) ,AN(17) ,M0(2,12) ,NO 
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M_M$(12) ,MONT(13,2,19) ,TOTAL(2) 

270 FRUB,CHX0 ,NR1 ,NR2 ,ANN2 ,M0OI S2 ,ANN3 ,AN 

N4 ,MO1S4 ,ANNS ,NR6 ,ANNé=0 :: RD1,RD2,MA4, 

RDé=1 :: RECN,OFF_AN,1I,J,K=0 

280 ÀA$="" :: F_RUB$="DSK1I .RUBRIQUES" :: 

F_MONT$="DSK1 .MONTANTS" 

290 ‘noms des mois 

300 DATA Janvier ,Feurier Mars, Avril,Mai, 

Juin,duillet Aout ,Septembre ,Octobre ,Nove 

mbre ,Decembre 

310 'batons recettes 

320 DATA 000000000000007E0000000000007E7 

E00000000007E7E7E000000007E7E7E7E | 

330 DATA 0000007E7E7E7E7E00007E7E7E7E7E7 

E007E7E7E7E7E7E/7E/7E7E7E7E/E7E7E7E 

340 'batons depenses: | 

350 DATA 7E000000000000007E7E00000000000 

07E7E7E00000000007E7E7E7E00000000 

360 DATA 7E7E7E/7E7E0000007E7E7E7E7E7E000 

07E7E7E7E7E/7E7E007E7E7E7E/E7E7E7E 

370 'batons rubriques 

380 DATA 008080808080800000C0C0C0C0C0C00 

000ECECECOECECEC0000FOFOFOFOFOFOOC 

390 DATA 00F8F8F8F8F8F80000FCFCFCFCFCFCO 

OOOFEFEFEFEFEFEOOOOFFFFFFFFFFFFO0 

400 'caracteres: 91(L), 92€(N), 93(1]1), 94 

(°) 990}, 124C1),: 126€") 

410 CALL CHAR(91,"101010101010107C",92," 

000000FF00FF0000" ,93,"7C10101010101010", 

94,"00008080FF808000") 

420 CALL CHAR(95,"00000000FF000000",124, 

RPT$("10",8) ,126,"E0909EE9C9A9090E" ) 

430 ! mise a jour table mois 

440 FOR 1=1 TO 12 :: READ NOM M$#(I1):: NE 

KT-1 

450 ! lecture rubriques 

460 ON ERROR 490 :: OPEN #1:F_RUB$, INPUT 
; INTERNAL ,VARIABLE 2*#(19+5) 

470 ON ERROR 760 :: FOR 1=1 TO 18 :: INP 


UT #1:RUBR#(1,1,1) ,RUBR#(1,1,2) ,RUBRS(2, . 


1,1) ,RUBR$(2,1,2):: NEXT 1 
: FRUB=-1 

480 ! chargement annees 

490 ON ERROR 510 :: OPEN #1:F_ MONTS, INPU 

T ,INTERNAL,FIXED 9*x18 

900 ON ERROR 760 :: FOR 1=1 TO 17 :: INP 

UT #1:AN(1),:: NEXT 1 INPUT #i:RECN : 
: CLOSE #i GOTO 570 

510 ON ERROR 760 :: OPEN #1:F_ MONTS, OUTP 

UT ,RELATIVE, INTERNAL ,FIXED 9#18 

920 RECN=35 FOR 1=i TO 17 :: PRINT #1 
‘AN(1),:: NEXT I :: PRINT #1:RECN 

930 FOR 1=1 TO 17 FOR J=i TO 2 :: FOR 
K=i TO 11 :: PRINT #1:MO0O(J,K),:: NEXT K 
5: PRINT #1:MO0O(J,K):: NEXT J :: NEXT 1 

CLOSE #1 

940 ! : 

9950 ! menu principal 

960 ! 


:: CLOSE #1 : 


970 DISPLAY AT(1,5)ERASE ALL:"COMPTES FA 

MILIAUX" : TAB(5) ;RPT$("\",17) 

980 RESTORE 640 :: READ 1 FOR J=4 TO 
1#2+2 STEP 2 :: READ À$ :: DISPLAY AT(Y, 
1):4$ NEXT J 

990 DISPLAY AT(23,1):"QUEL CHOIX DESIREZ 
VOUS?" :: IF CHX0O<)0 THEN DISPLAY AT(23 
525):CHX0 ” 

600 ACCEPT AT(23,26)VALIDATE(DIGIT)SIZEX 
—L)BEEP:ÀA$ :: IF À$="" THEN 600 ELSE CHX 
O=VAL(AS) :: IF CHX)1 THEN 600 

610 IF CHX0<>0 AND CHXO<)>1 AND CHXD{)I À 

ND NOT FRUB THEN DISPLAY AT(24,1)BEEP:"P 

AS DE FICHIER RUBRIQUES!!!" :: GOTO 600 
620 1F CHXO<)>1 THEN ON CHXO+1 GOSUB 800, 
890,1060,1590,1720,2040,2400 :: GOTO 570 
ELSE CALL LINK("MIRE") 

630 menu principal 

640 DATA 7 

650 ! 0 
660 DATA "1 
670 DATA "2 
680 DATA "3 
690 DATA "4 
700 DATA "5 

710 DATA ‘"é 
720 DATA "7 

730: ! 

740 ! 

750 ! 

760 CALL ERR(I1,J,J,J):: DISPLAY AT(24,1) 

BEEP : "ERREUR" ;1;"À LA LIGNE" ;J :: ACCEPT 
AT(24,28)SI12E(1)BEEP:ÀA$ :: CALL CLEAR : 
: STOP 

119 |! 

780 ! choix 0: re-init fichiers 

770 ! 

800 DISPLAY AT(24,1):"ETES-VOUS VRAIMENT 
SUR ? N° :: ACCEPT AT(24,26)S1ZE{(-1)BEE 

P:A$ :: IF A$()"0" THEN 850 

810 DELETE F_RUB$ :: DELETE F_MONTS :: F 

RUB=0 :: FOR 1=1 TO 2 :: FOR J=1 TO 18 : 
: FOR K=1 TO 2 :: RUBR$(I,J,K)="" :: NEX 

T K 13 NEXT J :: NEXT 1 

820 OPEN #1i:F_ MONTS ,OUTPUT ,RELATIVE,, INTE 

RNAL,FIXED 9*x18 :: RECN=35 :: FOR I=i TO 
17 :: AN(I1)=0 :: PRINT #i1:AN(1),:: NEXT 
1 :: PRINT #1i:RECN 

830 FOR 1=i TO 17 :: FOR J=1 TO 2 :: FOR 
K=i TO 11 :: MO(J,K)=0 :: PRINT #1:MO(J 
K),:: NEXT K° 

840 MO(J,K)=0 :: PRINT #1,MO(J,K):: NEXT 
J :: NEXT I :: CLOSE #1 

850 RETURN 

860 ! 

870 ! choix 1: modification rubriques 
880 ! 

890 DISPLAY AT(1,4)ERASE ÂLL:"RECETTES" ; 

TAB(18) ; "DEPENSES" : TAB(4) ;RPT$("_",8) ; TA 


initialisation fichiers 
ENTREE DES RUBRIQUES" 
ENTREE DES COMPTES" 

ETAT DES COMPTES" 

BILAN COMPTABLE" 
EVOLUTION ANNUELLE" 
EVOLUTION D’UNE RUBRIQUE" 
FIN DU PROGRAMME" 


traitement d’erreurs 





:)!)MAGAZINE n° 5 


B(18) ;RPT$("_",8) 

900 FOR I=1 TO 18 :: FOR J=1 TO 2 :: 1F 
RUBR$(J,1,1)2="" THEN A$=RPT${".",10)ELSE 
A$S=SEGS(RUBR$S(J,1,1),1,10) 

910 DISPLAY AT(I1+3,(J-1)#14+1) :USING 170 
11,4$ :: NEXT J :: NEXT 1! 


920 modification 

930 DISPLAY AT(23,1):"ENTREZ 1 POUR RECE 
TTE" :TAB(8) ;"2 POUR DEPENSE:" ;RDI :: ACC 
EPT AT(24,24)VALIDATE("12")S1ZE(-1)BEEP: 
RD1I 

740 DISPLAY AT(23,1):"RUBRIQUE À MODIFIE 
:: IF NRI1<)0 THEN DISPLAY AT(23,2 


Rise 
1) :NR1 
950 ACCEPT ÀAT(23,22)VALIDATE(DIGIT)SIZEX 
—2)BEEP:ÀA$ :: IF A$="" THEN 950 ELSE NRi 
=VAL(AS) :: IF NR1{1 OR NR1)18 THEN 950 
760 DISPLAY AT(23,1):"ENTREZ LE NOM DE L 
À RUBRIQUE" : RUBR$(RD1 ,NR1 , 1) ; TAB( 22) ; RUB 
R$(RD1 ,NR1,2):: ACCEPT AT(24,1)S1ZE(-18) 
BEEP : RUBR$(RD1 ,NR1 ,1) 

970 DISPLAY AT(NRI1+3,(RD1-1)#14+4)SIZE(1 
0) :RUBR$CRDI ,NR1 ,1):: IF RUBR$(RDI ,NR1 , 1 
="" THEN RUBR$(RDI1 ,NR1,2)="" :: GOTO 99 
0 

780 DISPLAY AT(23,1):"ABREVIATION (4 CAR 
.) 7" :: DISPLAY AT(24,22)S17E{(4) : RUBR$( 
RDI ,NR1,1):: ACCEPT AT(24,22)S12E(-4)BEE 
P:RUBR$(RD1 ,NR1 ,2) 

990 DISPLAY ÀAT(23,1):"ENCORE CO/N): O":" 
* s:: ACCEPT AT(23,15)VALIDATE("ON")SIZEX 
—1)BEEP:ÀA$ :: IF A$="0" THEN 930 

1000 'ecriture disque 

1010 OPEN #1:F_RUB$ ,OUTPUT, INTERNAL ,VARI 
ABLE 2*x(19+5) 

1020 FOR I1=i TO 18 :: PRINT #1:RUBR$#(1,1 
»1) ,RUBR$#(1,1,2) ,RUBR$(2,1,1) ,RUBR$# (2,1, 
2):: NEXT 1 :: CLOSE #1 :: FRUB=-1 :: RE 
TURN 

1030 ! 

1040 ! choix 2: entree des comptes 

1050 ! 

1060 DISPLAY AT(1,5)ERASE ALL:"ENTREE DE 
S COMPTES" : TAB(5) ;RPT$("\",18): :"ANNEE 
C19XX2:": :"MOIS (1-12):° 

1070 DISPLAY AT(8,1):"RECETTES (1)":"DEP 
ENSES (2):";RD2 :: IF ANN2<)0 THEN DISPL 
AY AT(4,14) :ANN2 

1080 1F MOIS2<>0 THEN DISPLAY AT(é,14):M 
0152 

1090 ACCEPT AT(4,15)VALIDATE(DIGIT)SIZE( 
—2)BEEP:ÀS$ :: IF A$="" THEN 1090 ELSE AN 
N2=VAL (AS) 

1100 ACCEPT AT(é,15)VALIDATE(DIGIT)SIZE( 
—2)BEEP:ÀA$ :: IF À$="" THEN 1100 ELSE MO 
1S2=VAL(AS) :: IF MOIS2{1 OR MOI1S2)12 THE 
N 1100 

1110 ACCEPT AT(9,15)VALIDATE("12")SIZE(- 
1)BEEP :RD2 
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1120 ‘recherche montants par type & mois 
1130 OFF_AN=O :: J=1 :: FOR 1=1 TO 17 :: 
IF AN(I)=ANN2 THEN OFF _AN<1%2-1 ELSE 1F 
ANCI)<20 THEN J=J+1 : 
1140 NEXT I :: IF OFF_AN<)0 THEN 1160 
1150 IF J=18 THEN DISPLAY AT(24,2)BEEP:" 
PAS PLUS DE 17 ANNEES !!" :: GOTO 1090 E 
LSE OFF_AN=Jx2-1 :: ANCJ)=ANN2 
1160 DISPLAY AT(24,1):"" :: OPEN #1:F_MO 
NT$, INTERNAL ,RELATIVE ,UPDATE,FIXED 9*18 
:: RESTORE #1 ,REC OFF_AN+RD2-1 
1170 FOR I=1 TO 11 :: INPUT #1:MO(RD2,1) 
NEXT 1 INPUT #1 :MO(RD2,1) 
1180 FOR I=i TO 18 :: MONT(MOIS2,RD2,1)= 
0 :: NEXT I :: IF MOCRD2,MO0IS2)=0 THEN 1 
200 
1190 RESTORE #1 ,REC MOCRD2,M01S2):: FOR 
I=1 TO 17 :: INPUT #1:MONT(MOIS2,RD2,1), 
5: NEXT I :: INPUT #1 :MONT(MOIS2,RD2,1) 
1200 DISPLAY AT(11,1):"MODIF. D’UNE RUBR 
IQUE: 0" :: ACCEPT AT(11,24)VALIDATE("ON 
“)SIZE(-1)BEEP:Â$ :: IF A$="N" THEN 1380 
1210 ‘modification d’une rubrique 
1220 CALL HCHAR(4,1,32,8%32):: DISPLAY À 
T{15,1):RPT$("_",28):: FOR 1=i TO 18 :: 
IF RUBR$(RD2,1,1)="" THEN 1240 
1230 A$=SEGS(RUBR$#(RD2,1,1),1,10):: J=IN 
T{(1-1)/2):: DISPLAY AT(J+16,(1-1-Jx2)*1 
4+1) :USING 170:1,A$ 
1240 NEXT 1 
1250 DISPLAY AT(4,1):"N0O DE RUBRIQUE :": 
“* 4: IF NR2<)0 THEN DISPLAY AT(4,17):NR 
2 
1260 DISPLAY AT(7,1):"ANCIENNE VALEUR:": 
* À AJOUTER...:":" À DEDUIRE...:":TA 
B(18) ;RPT$("_",8) : "NOUVELLE VALEUR:" 
1270 ACCEPT AT(4,18)VALIDATE(DIGIT)SIZEX 
-2)BEEP:ÀA$ :: IF A$="" THEN 1270 ELSE NR 
2=VAL(AS$) :: IF NR2<1 OR NR2)18 THEN 1270 
1280 IF RUBR$(RD2,NR2,1)="" THEN 1270 EL 
SE DISPLAY AT(4,1):"" 
1290 I=LEN(RUBR$(RD2,NR2,1)):: DISPLAY À 
T(4,14-1/2) :RUBR$(RD2,NR2, 1) :TAB(14-1/2) 
APR" _",1) 
1300 DISPLAY AT(7,17) :USING 190 :MONT (MOI 
S2,RD2,NR2) :: DISPLAY AT(11,17) : USING 19 
0 : MONT (MO1S2,RD2 ,NR2) 
1310 ACCEPT AT(8,18)VALIDATE(NUMERIC)SIZ 
E(-9)BEEP:ÀAS$ :: IF Â$="" THEN 1330 ELSE 
DISPLAY AT(8,17) :USING 190 :VAL(A$S) 
1320 MONT(MO1S2,RD2 ,NR2)=MONT (MO1S2,RD2, 
NR2) +VAL(AS) :: DISPLAY AT(11,17) :USING 1 
90 :MONT (MO1S2,RD2,NR2) | 
1330 ACCEPT AT(9,18)VALIDATE(NUMERIC)SIZ 
E(-9)BEEP:À$ :: 1F ÀA$="" THEN 1350 ELSE 
DISPLAY AT(9,17) :USING 190 :VAL(A$) 
1340 MONT(MOIS2,RD2 ,NR2)=MONT (MO1S2,RD2, 
NR2)-VAL(AS) :: DISPLAY AT(11,17) : USING i 
90 : MONT (MOIS2,RD2 ,NR2) 
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1350 DISPLAY AT(13,1):"ENCORE (O/N): 0" 
:: ACCEPT AT(13,15)VALIDATE("ON")SIZE(-1 

)BEEP :A$ 

1360 1F ÀA$="0" THEN DISPLAY AT(13,1):"" 
:: GOTO 1250 ELSE 1520 

1370 l'affichage tous montants 

1380 TOTAL(RD2)=0 :: 1F RD2=i THEN ÀA$="R 
ECETTES * ELSE A$="DEPENSES * 

1390 AS=ASENOM M$(MOIS2)&" 19"&STR$(ANN2 
):: DISPLAY ATT1,(28-LEN(AS))/2)ERASE AL 
L:A$ : TAB((28-LEN(AS) )/2) :RPT$("_" ,LEN(AS 
)) 

1400 FOR 1=1 TO 18 :: 
*"" THEN 1430 

1410 J=1+5 :: DISPLAY AT(1+3,1) : RUBR$(RD 
2,1,1)3RPT$("." ,19-LENCRUBR$#(RD2,1,1))) 
1420 1F MONT(MOI1S2,RD2,1)<>0 THEN DISPLA 

Y AT(1+3,20) :USING 190 :MONT(MOIS2,RD2,1) 
:: TOTAL(RD2)=TOTAL(RD2)+MONT (MO1S2,RD2, 
1) 

1430 NEXT 1 :: DISPLAY AT(J-1,20) :RPT$(" 

_",9):: DISPLAY AT(J,19) :USING 200:TOTAL 
(RD2) 

1440 'entree des montants 

1450 FOR 1=1 TO 18 :: IF RUBR$(RD2,1,1)= 
"" THEN 1490 

1460 TOTAL(RD2)=TOTAL(RD2) -MONT (MOI S2,RD 
2,1) 

1470 ACCEPT AT(1+3,20)VALIDATE(NUMERIC)S 
12E(-9)BEEP:ÀA$ :: IF ÀA$="" THEN MONT(MOI 
S2,RD2,1)=0 ELSE MONT(MOIS2,RD2,1)=VAL(A 

$) 

1480 DISPLAY AT(1+3,20) :USING 190 :MONT(M 
01S2,RD2,1):: TOTAL£RD2)=TOTAL(RD2) +MONT 
(MOIS2,RD2,1):: DISPLAY AT(J,19) :USING 2 
00 : TOTAL(RD2) 

1490 NEXT I :: DISPLAY AT(J,1)S12ZE(1é6):" 
CORRECT (O/N): 0" 

1500 ACCEPT AT(J,16)VALIDATE("ON")SIZE(- 
1)BEEP:ÀA$ :: IF A$<)"0" THEN CALL HCHAR( 
J,3,32,16):: GOTO 1450 

1510 'mise a jour fichier 

1520 1F MO(RD2,M01S2)=0 THEN MO(RD2,MOIS 
2)=RECN :: RECN=RECN+1 

1530 RESTORE #1 ,REC MO(RD2,M0IS2):: FOR 
1=1 TO 17 :: PRINT #1:MONT(MOIS2,RD2,1), 
:: NEXT I :: PRINT #1 :MONT(MOIS2,RD2,1) 
1540 RESTORE #1 ,REC OFF _AN+RD2-1 :: FOR 
1=1 TO 11 :: PRINT #1:MO(RD2,1),:: NEXT 
1 :: PRINT #1:MO(RD2,1) 

1550 RESTORE #1 :: FOR 1=1 TO 17 :: 

T #i:AN(I1),:: NEXT I 
CLOSE #1 :: RETURN 
1560 ! 

1570 ! choix 3: etat des comptes 

1580 ! 

1590 DISPLAY AT(1,6)ERASE ALL:"ETAT DES 
COMPTES" : TAB(6) :RPT$C"\",16): :"ANI JF 

MAMJJASON DI":RPT$("_",28) 


IF RUBR$(RD2,1,1)= 


PRIN 
:: PRINT #i:RECN 


1600 OPEN #1:F_MONT$,INPUT ,RELATIVE, INT 

ERNAL,FIXED 9x1 ANN3=0 

1610 FOR I1=i TO 17 :: K=ANN3 :: ANN3=100 
:: OFF _AN=O :: FOR J=1 TO 17 :: 1F AN(J 
)>K AND AN(CJ) ANN3 THEN ANN3=AN(J) :: OFF 

ANJ 

1620 NEXT J :: 1F OFF_AN=0 THEN DISPLAY: 

ATCI+5,1):"-—-1" 5: RPTSC" -",12);"1" :: GOT 

0 1670 

1630 RESTORE #1,REC OFF _ANx2-1 FOR J= 

1 TO 2 :: FOR K=i TO 11 :: INPUT #1 :MO(J 
,K),1:: NEXT K :: INPUT #1:MO(J,K):: NEXT 
J 

1640 DISPLAY AT(1+5,1):USING 170 :ANN3 :: 
DISPLAY AT(1+5,3):"1" 

1650 FOR J=1 TO 12 :: 1F MO(1,J)=0 THEN 

IF MO(2,J)=0 THEN A$="-" ELSE A$="D" ELS 

E 1F MO(2,J)=0 THEN A$="R" ELSE A$=""" 

1660 DISPLAY AT(I1+5,J%2+3):A$ :: NEXT J 
1: DISPLAY AT(1+5,28):"1" 

1670 NEXT I :: DISPLAY AT(23,1) :RPT$("_" 
,28):: CLOSE #1 :: ACCEPT AT(24,28)SI2E( 
1)BEEP:A$ :: IF A$="P" THEN CALL IMP_ECR 

1680 RETURN 

1690 ! 

1700 ! choix 4: bilan 

1710: 

1720 DISPLAY AT(I1,6)ERASE ALL:"BILAN COM 

PTABLE" : TAB(6) ;RPT$("\",15): :"MENSUEL ( 


1)":"ANNUEL (2) :";MAd: :"ANNEE (19XX) : 


1730 1F ANN4()0 THEN DISPLAY AT(7,14):AN 

N4 

1740 ACCEPT AT{S5,15)VALIDATE("12")SI2E(- 
1)BEEP:MA4 :: IF MA4=2 THEN 1760 

1750 DISPLAY AT(9,1):"MOIS (1-12):" :: 
IF MOIS4{>0 THEN DISPLAY AT(9,14) :M0154 
1760 ACCEPT AT(7,15)VALIDATE(DIGIT)SIZE( 
-2)BEEP:A$S :: IF ÀA$="" THEN 1760 ELSE AN 

N4=VAL(AS ) 

1770 DISPLAY AT(24,1):"" 

N 1790 

1780 ACCEPT AT(9,15)VALIDATE(DIGIT)SIZE( 
-2)BEEP:A$ :: IF A$="" THEN 1780 ELSE MO 
1S4=VAL(AS):: 1F MOIS4{1 OR M0OIS4}12 THE 

N 1780 

1790 OFF_AN=0O :: FOR 1=1 TO 17 :: 1F ANC 
1)=ANN4 THEN OFF _AN=I*%2-1 

1800 NEXT 1 :: 1F OFF_AN=0 THEN DISPLAY 

AT(24,1):"CETTE ANNEE N'’'EXISTE PAS ::° : 
: GOTO 1760 

1810 OPEN #1:F_MONT$, INTERNAL ,RELATIVE, I 

NPUT ,FIXED 9#18 

1820 RESTORE #i,REC OFF_AN :: FOR I1=i TO 
2 :: FOR J=i TO 11 :: INPUT #1:MO(I,J), 
:: NEXT J :: INPUT #i:MO0(1,J):: NEXT 1 : 
: IF MA4=2 THEN 1890 

1830 'calcul bilan mensuel 

1840 1F MO(i,M01S4)=0 AND MO(2,M01S4)=0 


:: IF MA4=2 THE 
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THEN CLOSE #1 :: DISPLAY AT(24,1):"CE MO 
1S N’'EXISTE PAS !!*" :: GOTO 1760 

1850 FOR 1=i TO 2 :: FOR J=i TO 18 :: MO 
NT(MO1S4,1,J)=0 :: NEXT J :: IF MO(I,MOI 
S4)=0 THEN 1870 

1860 RESTORE #1 ,REC MO(1 MOIS4) :: An J= 
TO 3: INPUT #1 :MONT (MOI1S4, L,d2; N 
EXT J :: INPUT #1 :MONT (MO1S4, 1 , J) 

1870 TOTAL(I)=0 :: NEXT I :: ÀA$="BILAN " 
&NOM_M$(MO1S4)&" 
4 :: GOTO 1940 
1880 'calcul bilan annuel 

1890 FOR 1=i TO 2 :: FOR K=i TO 18 :: MO 
NT(13,1,K)=0 :: NEXT K :: FOR J=i TO 12 
:: FOR K=1 TO 18 :: MONT(J,I1,K)=0 :: 
TK :: 1F MO(1,J)=0 THEN 1920 

1900 RESTORE #1 ,REC MO(I,J):: FOR K=1 TO 
17 :: INPUT R1:MONT(J,I,K),:: MONT(13,1 
5 K)=MONT(13,1,K)+MONT(J,1,K):: NEXT K 
1910 INPUT #1:MONT(J,1,K):: MONT(13,1,K) 

=MONT(13,1,K)+MONT(J,1I,K) 
1920 NEXT J :: TOTAL(I)=0 

$="BILAN 19"&STRS (ANN4) : : 
1930 'affichage 

1940 CLOSE #1 :: DISPLAY AT(1,(28-LENCAS$ 
))/2)ERASE ALL :ÂA$ : TAB((28-LEN(AS) )/2) ;: RP 

T$("_",LEN(A$)) 

1950 FOR 1=1 TO 18 :: CALL HCHAR(1+2,2,1 
24):: FOR J=1 TO 2 :: IF RUBR$(J,1,1)="" 
THEN 1970 

1760 DISPLAY AT(1+2,(J-1)#14+1)SI12E(4):R 
UBR$(J,1,2):: DISPLAY AT(1+2,(J-1)x*x14+5) 
USING 190:MONT(K,J,1):: TOTAL(J)=TOTAL( 
J)+MONT(K,J,1) 

1970 DISPLAY AT{1+2,J#14):"1" :: NEXT J 
1: NEXT 1 :: CALL HCHAR(21,2,95,29):: CA 
LL HCHAR(2Z2,2,124) 

1980 DISPLAY AT(22,1):USING 230:TOTAL(1) 
;TOTAL(2):: CALL HCHAR(23,2,95,29):: DIS 
PLAY AT(24,8):" SOLDE: ":; TOTAL(1)-TOTAL(2 
) 

1990 ACCEPT AT(24,28)SI2E(1)BEEP:A$ :: 1 
F A$="P" THEN CALL IMP_ECR 

2000 RETURN 

2010 ! 

2020 ! choix 5: evolution annuelle 

2030 ! 

2040 RESTORE 320 :: FOR 1=128 TO 143 STE 

P 4 :: READ À$ :: CÂALL CHAR(I ,AS$):: NEXT 
1 :: CALL COLOR(13,13,1,14,9,1) 

2050 DISPLAY AT(1,5)ERASE ALL :"EVOLUTION 
ANNUELLE" : TAB(5) ;RPT#("\",18): :"ANNEE 
(19XX):" :: IF ANN5<)0 THEN DISPLAY AT(4 
514) :ANNS 

2060 ACCEPT AT(4,15)VALIDATE(DIGIT)SIZEX 

—-2)BEEP:A$ :: IF À$="" THEN 2060 ELSE AN 

NS=VAL(AS ) 

2070 DISPLAY AT(24,1):°" 

FOR 1=i TO 17 


197" &STR#(ANN4) :: K=MOIS 


ss: NEXT I :: À 
K=13 


:: OFF _AN=O :: 
:: IF ANCI)=ANNS THEN OFF_ 
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NEX . 


AN=1%x2-1 

2080 NEXT 1 :: IF OFF_AN=0 THEN DISPLAY 

AT(24,1):"CETTE ANNEE N'’EXISTE PAS !!" : 
: GOTO 2060 

2090 OPEN #1:F_MONT$,INTERNAL ,RELATIVE, I 

NPUT ,FIXED 9*18 

2100 RESTORE #1,REC OFF _AN :: FOR 1=i TO 
2 :: FOR J=1 TO 11 :: INPUT #i:MO(I,J), 
:: NEXT J :: INPUT #1:MO(I,J):: NEXT 1 

2110 FOR I1=1 TO 2 :: TOTAL(I),MONT(13,1, 
19)=0 :: FOR J=1 TO 12 :: MONT(J,1,19)=0 
:: IF MO(I,J)=0 THEN 2140 

2120 RESTORE #1,REC MO(1,J):: FOR K=1i TO 
17 :: INPUT #i:MONT(J,I,K),:: MONT(J,I, 
197)=MONT(J,1,19)+MONT(J,1,K):: NEXT K :: 
INPUT #1:MONT(J,I ,K) 

2130 MONT(J,1,19)=MONT(J,1,19)+MONT(J,1, 

K):: TOTAL(I)=MAXCTOTAL(I) ,MONT(J,1,19)) 

2140 MONT(13,1,19)=MONT(13,1,19)+MONT(YJ, 
519251: NEXT J :: NEXT I 2: CLOSE #1 ss: 

A$=" EVOLUTION ANNEE 19"&STRS$S(ANN5) 

2150 DISPLAY AT(1,5)ERASE ALL:Â$ :TAB(5) ; 

RPTS(" _",20): :TAB(5):;"1 RECETTES]I DEP 

ENSES | " :RPT$("_",27) 

2160 'evolution en chiffres 

2170 FOR 1=1 TO 12 :: DISPLAY AT(I1+5,1): 

USING 210:SEG$(NOM M$(1),1,3)&".",MONT(I 
51519) ,MONT(I1,2,19)::.NEXT 1 

2180 DISPLAY ÀAT(18,1):RPT#("_",27):: DIS 
PLAY AT(19,1) :USING 210:"TOT." ,MONT(13,1 
519) ,MONT(13,2,19) 

2190 DISPLAY AT(20,1):RPT$("_",27):: DIS 
PLAY AT(21,1) :USING 210:"Moy." ,MONT(13,1 
,19)/12,MONT(13,2,19)/12 

2200 DISPLAY AT(22,1):RPT$("_",27) :TAB(S 
);"SOLDE:" :: DISPLAY AT(23,11) :USING 19 
O:MONT(13,1,19)-MONT(13,2,19) 

2210 ACCEPT AT(24,28)SIZEX1)BEEP:A$ 

F ÀA$="P" THEN CALL IMP_ECR 

2220 'evolution en batons 

2230 CALL HCHAR(4,1,32,21#32):: ÀA$=" [RI 
ELCIELTITIEEIST L° :2: FOR 1=1 TO 10 :: DI 
SPLAY AT(1+2,1):SEG$(A$,1x*x2-1,2) ; TAB(26) 
SE" 5: NEXT. 1] 

2240 DISPLAY AT(13,1):"01J F M À M_J_J À 
=_S ON_DI_ I" 

2250 A$=" JDJEJPJEINISIEIS) ]" :: FOR I=, 
1 TO 10 :: DISPLAY AT(1+13,1):SEG$(AS,1% 
2-1,2);TAB(26);°} }°" :: NEXT 1! 

2260 FOR 1=1 TO 12 :: J=10*8xMONT(I,1,19 
)/MAX(TOTAL(1),TOTAL(2)):: K=INT(J/8):: 
IF K<)>0 THEN CALL VCHAR(13-K,1#2+3,135,K 
) 

2270 IF INT(J-8*xK)<)>0 THEN CALL VCHAR(12 
—K,1#2+3,128+INT(J-8%K)) 

2280 J=10*x8xMONT(1,2,19)/MAX(TOTAL(1),T0 

TAL(2)):: K=INT(J/8):: IF K<)>0 THEN CALL 
VCHAR(14,1%x2+3,143,K) 

2290 IF INT(J-8*xK)<>0 THEN CALL VCHAR(14 
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+K,1#2+3,136+INT(J-8%K)) 

2300 NEXT 1 :: J=10*8xMONT(13,1,19)/(12% 

MAX(TOTAL(1),TOTAL(2))):: K=INT(J/8):: 1 

F K<)20 THEN CALL VCHAR(13-K,29,135,K) 

2310 IF INT(J-8x*xK)()>0 THEN CALL VCHAR(12 

-K,29,128+INT(J-8#K)) 

2320 J=10*8xMONT(13,2,19)/(12%MAX(TOTALK 
1),T0TAL{2))):: K=INT(J/8):: IF K<20 THE 

N CALL VCHAR(14,29,143,K) 

2330 1F INT(J-8#*K)<)20 THEN CALL VCHAR(I4 

+K,29,136+INT(J-8%K)) 

2340 DISPLAY AT(24,1):USING 240 :MAX(TOTA 

L(1),T0OTAL(2))/10 

2350 ACCEPT AT(24,28)S1ZE(1)BEEP:ÀA$ :: 

F A$="P" THEN CALL IMP_ECR 

2360 RETURN 

2370 ! . 

2380 ! choix 6: evolution d’une rubrique 

2390 ! 

2400 RESTORE 380 :: FOR 1=128 TO 135 STE 

P 4 :: READ A$ :: CALL CHAR(I,A$):: NEXT 
I 

2410 DISPLAY AT(1,2)ERASE ALL :"EVOLUTION 
D’UNE RUBRIQUE" : TAB(2) ;RPT$("\",24): :" 

RECETTE (1)":"DEPENSE (2) :":RDé: :"AN 

NEE (19XX) :° 

2420 1F ANNé()0 THEN DISPLAY AT(7,16) :AN 

Né 

2430 ACCEPT AT(5,17)VALIDATE("12")S1ZE(- 
1)BEEP:RDé :: IF RDé=i THEN CALL COLOR(1 
3,13,1)ELSE CALL COLOR(13,9,1) 

2440 ACCEPT AT(7,17)VALIDATE(DIGIT)SIZE( 
-2)BEEP:ÂA$ :: IF A$="" THEN 2440 ELSE AN 

Né=VAL(AS) 

2450 DISPLAY AT(24,1):"" :: OFF _AN=0O :: 
FOR 1=i TO 17 :: IF ANCI)=ANNé THEN OFF_ 

AN=1%2-1] 

2460 NEXT 1 :: 1F OFF _AN=0 THEN DISPLAY 

AT(24,1):"CETTE ANNEE N'’'EXISTE PAS !!* : 
: GOTO 2440 

2470 DISPLAY AT(15,1):RPT$#("_",28):: FOR 
I=i TO 18 :: IF RUBR$(RDé,1,1)="" THEN 
2490 

2480 A$=SEGS(RUBR$(RDé,1,1),1,10):: J=IN 

T((1-1)/2)3:: DISPLAY AT(J+16,(1-1-J*x2) #1 
4+1) :USING 170:1,Â$ 

2490 NEXT 1 :: DISPLAY AT(9,1):"NO DE RU 
BRIQUE:" :: IF NRé<)0 THEN DISPLAY AT(9, 
16) :NRé 

2500 ACCEPT AT(9,17)VALIDATE(DIGIT)SIZEX 
-2)BEEP :A$ 

2510 IF A$="" THEN 2500 ELSE NRé=VAL(A$) 
:: IF NRé{1 OR NRé)}18 THEN 2500 ELSE IF 
RUBR$(RDé ,NRé,1)="" THEN 2500 

2520 OPEN #1:F_ MONTS, INTERNAL ,RELATIVE, I 

NPUT ,FIXED 9*#18 

2530 RESTORE #1,REC OFF _AN+RDé-1 :: 
I=i TO 11 :: INPUT #1 :MO(RDé,1) ,:: 
1 :: INPUT #1 :MO(RDé,1) 

2540 TOTAL(RDé) ,MONT(13,RD6é,NRé6)=0 :: FO 


FOR 
NEXT 


ce 


R 1=1 TO 12 :: MONT(I,RD6,NRé)=0 :: IF M 
O(RDé,1)=0 THEN 2580 

2550 RESTORE #1,REC MO(RDé,1):: IF NRé=]i 
THEN 2570 

2560 FOR J=1 TO NRé-i :: 
»RDé,J),:: NEXT J 

2570 INPUT #1 :MONT(I ,RDé ,NRé) :: MONT(13, 
RDé6 ,NR6)=MONT ( 13 ,RDé ,NRé6) +MONT (I ,RD6 ,NRé 
):: TOTAL(RDé)=MAX(TOTAL(RDé) ,MONT(I ,RDé 
,NR6) ) 

2580 NEXT 1 

NRé,1) 

2590 'affichage en chiffres 

2600 DISPLAY AT(1,(28-LEN(AS))/2)ERASE À 
LL:Â$ : TAB((28-LEN(AS) )/2) ;RPT$("_" ,LEN(A 

$)) 

2610 DISPLAY AT(3,9):" ANNEE 19" &STRS(ANN 
6) :TAB(9) ; RPT$(" *, 10): : :TAB(5) ;RPT$(" 

2" 520) 

2620 FOR 1=1 TO 12 :: DISPLAY AT(1+7,5): 
USING 220 :NOM_ M${1) ,MONT{(I ,RD6 ,NRé) :: NE 

XT 1 :: DISPLAY AT(20,5) :RPT$("_",20) 
2630 DISPLAY AT(21,5) :USING 220:"TOTAL", 

MONT{13,RD6,NR6) :: DISPLAY AT(22,5) :RPT$ 
an 

2640 DISPLAY AT(23,5) :USING 220 :"Moyenne 
" ,MONT(13,RD6,NRé)/12 :: ACCEPT AT(24,28 
)S12E(1)BEEP:A$ :: 1F A$="P" THEN CALL 1 

MP_ECR 

2650 l'affichage en batons 

2660 CALL HCHAR(7,1,32,18%32):: DISPLAY 

AT(7,1):RPT$("_",5) ;RPT$("°",20) 

2670 FOR 1=1 TO 12 :: DISPLAY AT(I+7,1): 
SEG$(NOM_M$#(1),1,3);".1" :: IF MONT(I,RD 
6,NR6)=0 THEN 2700 

2680 J=20*8xMONT (1 ,RDé ,NRé)/TOTAL(RDé) : : 
K=INT(J/8):: IF K<)20 THEN CALL HCHAR(I+ 
7,8,135,K) 

2690 IF INT(J-8x*xK)<>0 THEN CALL HCHAR(I+ 

7,8+K,128+INT(J-8%K)) 

2700 NEXT 1 :: DISPLAY AT(20,1) :RPT$("_" 
53) 3;RPT$("*",20):: DISPLAY AT(21,1):"moy 
.l" ::5 1F MONT(13,RD6 ,NRé)=0 THEN 2730 

2710 J=20*8xMONT(13,RD6 ,NRé6)/(12#TOTAL(R 

Dé)):: K=INT(J/8):: IF K<)>0 THEN CALL HC 

HAR(21,8,135,K) 

2720 1F INT(J- 8*K)<>0 THEN CALL HCHAR(21 
,8+K,128+INT(J-8%K)) 

2730 DISPLAY AT(22,1):RPT$("_",5) ;RPT$(" 
**,20):: DISPLAY AT(24,1) :USING 240:TOTA 

L(RDé)/20 

2740 ACCEPT AT(24,28)S12E(1)BEEP:ÀA$ :: 1 

F A$="P" THEN CALL IMP_ECR 

2750 RETURN 

2760 ! 

2770 l'impression ecran 

2780 ! 

2790 SUB IMP_ECR 

2800 DISPLAY AT(24,1):"FONCTION NON REAL 
ISEE" :: ACCEPT AT(24,28)SI12E{1)BEEP:ÀA$ 

2810 SUBEND 


INPUT #1:MONT(I 


:: CLOSE #1 :: A$=RUBR$(RDé, 
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NDLR : ce jeu d'aventure est 
écrit en Basic Etendu. 


Des diamants ont été dérobés par 
l'infâme prince Krapul, qui les a cachés 
dans son château perdu au fin fond du 
désert | Personne ne sait où il se 
trouve exactement et les rares 
audacieux qui ont osé partir à sa 
recherche n'en sont jamais revenus. 
Serez-vous volontaire pour cette 
mission bien spéciale qui consiste à 
retrouver et à ramener les diamants 
volés ? 


- Si vous avez un goût prononcé pour 
l'aventure, la découverte et l'imprévu, 
stoppez là votre lecture et partez 
immédiatement à la recherche du 
château. 


Si vous préférez vous faire une idée 
des petites. misères qui vous 
attendent, quelques explications vous 
seront peut-être utiles. 


Au début, vous suivez un petit chemin 
de campagne et vous décidez de la 
direction à prendre en appuyant sur 
l'une des quatre touches fléchées. 
Votre premier objectif sera de trouver 
le passage qui mène au désert et à ses 
pistes peu visibles où votre sens de 
l'orientation sera mis à rude épreuve. 
Dès que vous aurez repéré le château, 
n'hésitez pas à y pénétrer : il est peu 
probable que vous ayez besoin 
d'explorer les 25 salles qui le 
composent pour trouver les diamants. 
A ce moment, votre but sera de 
repartir en ville. 


Pour cela, vous pourrez tout 
naturellement refaire en sens inverse 


le chemin qui vous a conduit au château. 


en retraversant le désert, puis la 
campagne pour revenir à votre point 
exact de départ où il vous sera 
possible d'entrer dans la ville, si vous 
avez au moins un diamant sur vous. Ce 
retour vous sera grandement facilité si 
vous avez eu la sagesse de faire un 
plan des zones que vous avez visitées. 
Une autre solution, plutôt inattendue, 
consiste à utiliser les souterrains du 
château qui, si vous ne vous y égarez 
pas, vous conduiront directement en 
ville où {1 vous faudra encore retrouver 
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Mission spéciale 


votre rue. En espérant que vous n'aurez 
pas perdu quelques diamants en cours 
de route, car il ne vous resterait plus 
qu'à repartir ! 


Mais n'allez tout de même pas vous 
imaginer que le prince Krapul va se 
laisser tranquillement dépouiller : ses 
acolytes, de monstrueuses créatures 
qui crachent des flammes mortelles, 
vont essayer de vous décourager et, au 
besoin, de vous détruire. Pour avoir une 
chance de réussir, vous devez donc être 
armé;-c'est pour cette raison que vous 
recevrez, avant de partir, une grenade 
et un pistolet. D'ailleurs, si au cours de 
votre mission vous perdiez tous vos 
objets, vous pourriez essayer de 
revenir à votre point de départ où vous 
percevriez ces deux armes. Rien ne 
vous empêche d'ailleurs de laisser les 
objets que vous transportez dans la 
campagne avoisinante et de les 
reprendre au passage. 


Si vous rencontrez un ennemi, vous 
pouvez l'éliminer radicalement avec 
votre grenade ou tenter de vous 
défendre avec votre pistolet que vous 
déplacez de droite à gauche avec les 
deux touches fléchées “D” et "S”. 


Le tir se fait en appuyant sur la touche 
"1" mais, comme il ne s'agit pas d'un 
pistolet mitrailleur, vous serez obligé 
de relâcher la gachette (la touche “1") 
avant de tirer à nouveau. Ces créatures 
ont la peau dure et il faut souvent les 
toucher à plusieurs reprises avant 
qu'elles ne cèdent. Le fantôme, quant à 
lui, lorsqu'il est atteint, se transforme 
en une créature différente qui vous 
attaque aussitôt. Si vous remportez le 
combat, l'ennemi disparaît 
définitivement de cet endroit. Si vous 
perdez, il reste en place, votre pistolet 
est détruit mais vous pouvez tout de 
même poursuivre votre route. Si vous 
n'avez plus de pistolet et que vous 
rencontriez un ennemi, vous pourrez 
passer à condition de lui offrir un 
objet qu'il se choisira lui-même parmi 
ceux que vous transportez. Ce serait un 
grand malheur si vous n'aviez plus rien 
à lui présenter car, dans ce cas, vous 
n'auriez plus aucun espoir de rentrer un 
jour chez vous | 


Edouard HKrok 


Fort heureusement, vous trouverez au 
hasard de votre voyage des objets qui 
s'avèreront très utiles. Vous pourrez 
les prendre, les laisser, voire les 
déplacer. Si vous avez une clochette, 
vous l'agiterez chaque fois que vous 
rencontrerez un serpent : il ira vite se 
terrer dans son trou et n'en ressortira 
que lorsque vous vous serez éloigné. 1] 
vous arrivera de trouver un coffre; 
vous ne pourrez le prendre car il est 
trop lourd à porter mais ce sera un jeu 
d'enfant de l'ouvrir si vous avez la clé. 
La plupart des coffres renferment un 
diamant mais, s'il peuvent être vides 
où contenir un objet utile, un ennemi 
peut aussi s'y cacher. 

Si vous avez de Ja chance, vous 
trouverez une carte; son nom est 
usurpé car il n'existe en fait aucun 
plan de ces zones inexplorées, mais 
une lettre repérant le lieu où vous vous 
trouvez s'inscrira en haut de l'écran et, 
si vous le demandez, vous obtiendrez la 
lettre qui repère l'endroit par où vous 
êtes entré et celui par lequel vous 
devez sortir. Contrairement aux 
premières apparences, la carte est 
très utile pour se guider dès que l'on 
s'en sert régulièrement. Les jumelles, 
quant à elles, vous feront gagner 
beaucoup de temps car elles 
permettent de regarder dans toutes les 
directions sans prendre le risque 
d'aller voir sur place. | 

Si vous êtes totalement égaré, que 
vous vous retrouviez seul, sans arme 


‘et sans moral, il vous reste encore la 


faculté d'abandonner. Si vous tapez 
“"REDO" (FCTN-8) vous pourrez repartir 
en mission avec un parcours 
exactement identique, les objets et les 
ennemis ‘Vous attendants aux mêmes 
endroits. Ainsi, si vous avez fait un 
plan sur papier, il pourra vous 
resservir. Si vous tapez “BACK* 
(FCTN-9) vous partirez chaque fois 
dans l'inconnu le plus total. 
Avant le départ, vous recevez votre 
ordre de mission puis vous devez vous 
engager à ramener entre 1 et 5 
diamants; cela conditionne la 
difficulté de votre tentative. Avec un 
peu d'expérience, vous constaterez que . 
les problèmes qui se posent pour 
apporter les 5 diamants à la fois, ne 
sont pas insurmontables. : 
O 
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100 ! #KXHKKEREREEEEMIEHEXIEX 

110 ! x MISSION SPECIALE * 

120 ! HKXXKHKHERREEEEEXXEXXX 

130 ! * basic etendu * 

140 ! HKXXHHEKHHMMMHMHX IR IR XX 

158 ! 

160 DISPLAY AT(7,7)ERASE ALL :"mi 

ssion speciale" :: CALL MAGNIFY( 

4):: D=i :: B=2 

:: F=8 

170 DIM P#$(4) ,A(C3) ,N(3) 

180 DEF T{(X)=ASC(SEGS(P#S(P),X,D) 
) P 

190 CALL CHAR(33,"00FF7060600000 

00382472FAF8F8F870FE82A4ÂA92AÂS82FE 
FE” 2 

200 CALL CHARC36 ,"0000C0CéFFCO00 

0010101038387CFE10é6éééFFE7E7E77E 

E738FE7C38381") 

210 FOR X=64 TO 88 STEP F :: CAL 

L CHAR(X ,"FFFEFCF8FOEOCO80FF7F3F 
1F0F070301"&RPTS 

C"F",16)&"0") 

220 CALL CHAR(X+4,"FFFFFFFFFF3F0 

FO3FF3F0F0300000000FFFFFFFFFFFCF 

OCOFFFCFOC" ):: 

EXT X 

230 CALL CHAR(90,"0000000000030F 
3F0000000000C0F0FC" ,68,"02020202 
060600000",70,"4 

0404040606000000") 

240 CALL CHAR(56,"80808000008080 
800101010000010101",132,"0101"&R 
PT#("0",45)) 

250 CALL CHAR(128,"FOFOEUEOCOCO8 
O80FFFFFEFEFCFCF8F80F0F070703030 
101FFFF7F7F3F3F1 

FF" 

260 CALL CHAR(124,"0102020604050 
8080911111108081122008040406020À 
0909018088888844 

422") 

270 CALL DELSPRITE(ALL):: CALL C 
OLOR(D,5,D,4,B,D):: IF K=15 THEN 
RANDOMIZE ELSE 

RANDOMIZE 12 

280 DISPLAY AT(B,D)ERASE ALL:'"vo 
tre mission :" 

290 DISPLAY AT(7,5):"vous devez 
recuperer et": :"ramener chez vo 
us en ville": :" 

les diamants derobes par": :"l"i 
nfame prince kKrapul 3° 

300 X$=" IMLILKONJJCGNKFIMONHCGGG 
FIEMELCMNIFIFKGLJIOMNCFCGFIELILC 
LJKNINCOFJKMGLCG 
GEFILHILCGGONIMLKFKNKOLCFCGFHIEL 
HJCMFJKEOMFKMGOLCGEGF " 

310 Q$=" 299294RABBCDEFHHHIIJJKKLL" 
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):: W=W-NCX) #B°X : 


320 FOR P=C TO 4 :: X=INT(25%xRND 
)+D :: Y=INT(25X*RND)+D :: IF X=Y 
THEN 320 ELSE P 
SCP)I=SEGSCXS, INT 4%RND) #25+D,25) 
&CHRECXIECHRE CY D 

330 FOR X=D TO 25 :: P$(P)=P#(P) 
&SEGS(G$,INT(23#RND)+D,D):: NEXT 
X :: NEXT P 

340 DISPLAY AT(17,5)BEEP:"combie 
n de diamants": :"vous sentez vo 
us capable": :"d 


. e ramener :": : :TAB(8) ;"choisir 


1 à 5° 
350 CALL KEY(3,K,9S):: IF K<49 OR 
K>53 THEN 350 ELSE CÂALL SOUND(? 
7399795D)3: DISPL 
AY AT(22,7)ERASE ALL:"preparez v 
ous": :"vous allez a la campagne 
360 G$=" 33229" :: G=K-48 :: FOR X 
=C TO Q :: CALL MAJ(P#$(B) ,INT(25 
#*RND)+28,71):: N 
EXT X 
370 FOR P=C TO 4 :: FOR Y=D TO BE 
:: CALL MAJ(P#(P),T(25+Y)+27,64 
>):: NEXT Ÿ :: NE 
XT P :: DISPLAY AT(D,16):"1 23 
4 5" :: CALL HCHAR(D,F,39,G@):: P 
sW=C 
380 CALL DELSPRITE(ALL):: GOSUB 
1530 :: P=P+W :: E=T(26-(W<0))+6 
4 :: G$=0$&" 2" : 
: IF P=3 THEN 390 ELSE IF P=B TH 
EN GOSUB 1290 ELSE GOSUB. 1010 
390 FOR X=C TO 3 :: ACX)=D :: NC 
X)=C :: NEXT X :: GOTO 410 
400 GOSUB 1530 :: W=T(E)-64 
OR X=3 TO C STEP -D :: ACX)=N 
1: NCXI=-(W2>=B"X 
: NEXT X 
410 FOR K=-D TO B :: S=N(CK+D):: 
IF K<B THEN IF S=ACK+D)THEN 446 
ELSE 430 ELSE IF 
P=3 THEN GOSUB 1460 ELSE IF P=B 
THEN GOSUB 1340 ELSE GOSUB 1250 
420 GOTO 440 
430 1F P=B AND K=C THEN GOSUB 13 
20 ELSE IF P=B THEN GOSUB 1360 E 
LSE IF P=3 THEN 
GOSUB 1400 ELSE GOSUB 1070 
440 NEXT K :: 1F E)é4 THEN E=E-é 
4 :: GOTO 400 ELSE Z=T(E+27)-64 


450 IF 2<F THEN CALL CHARPAT(32+ 


Z,X#):: CALL CHAR(60 ,XS&RPT#("0" 
,64))ELSE GOSUB 

1490 

460 CALL SCREEN(ASC(SEGS$("NJPHD" 
,P+D,D))-64):: IF POS(Q$,"C",D)T 
HEN CALL HCHAR(D 
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514,96+E) 

470 ON P+D GOSUB 1540,1560,1570, 
1580,1590 

480 CALL SPRITECH4,60,5-3*x(P=B) x 
(2)2F),129+24x(22>F),116):: IF LEN 
(G$)>5 THEN G$=Ss 

EG$(Q$,D,5):: IF 2>F THEN 660 EL 

SE 540 ELSE IF Z>F THEN 660 

490 W=(E=T(26))-CE=T(27)):: 

+B GOTO 510,540,500 

500 IF P=4 THEN CALL SCREEN(13): 
: CALL TEX(5):: IF G>C THEN DISP 

LAY AT(24,B):"al 

lez chercher les diamants" :: GO 

TO 550 ELSE 960 ELSE 520 

910 IF P=C THEN IF G$="3aaada" TH 

EN CALL MAJ(QH,D,65):: CALL MAJ( 

G$,B,66):: GOTO ù 

540 ELSE IF POS(Q$,"G",D)=C THEN 

° 540 ELSE W=4 

9520 CALL TEX(P+W) 

530 CALL KEY(C,K,S):: IF K=79 TH 

EN CALL HCHAR(22,D,32,15):: DISP 

LAY AT(22,10):"u 

ous allez" :: GOTO 380 ELSE IF K 
<>78 THEN 530 

540 IF Z>C AND 2Z<97 THEN X$=" un 

objet" :: DISPLAY AT(21,D)BEEP:"° 
ui Du p prend 

re"s:X$:"  1as utiliser" ;X$:"1 1 

aS5 Jlaisser":;XxX$ ELSE CALL TEX(7) 

999 CALL KEY(C,K,S):: IF S THEN 

CALL SOUND(?79,999,C)ELSE 550 

560 IF K}>48 AND K<54 THEN 840 

570 IF K=80 THEN X=POS(G$," a" ,D) 
:: IF X=C OR Z>7 THEN 650 ELSE C 

ALL DELSPRITE(H4 

):: CALL MAJ(GQ#,X,2+64):: CALL M 

AJ(PSCP),E+27,64):: G=G+t(2=7):: 

Z=C :: GOTO 540 

ELSE IF K<>76 OR 2Z>F THEN 600 

580 CALL KEY(C,K,S):: IF K>48 AN 

D K<54 THEN Z=ASC(SEGE(G#$,K-48,D 
))-64 ELSE 580 

570 IF Z THEN CALL MAJ(GS,K-48,6 

4):: CALL MAJ(P#(P),E+27,2+64):: 
G=G-(2=7):: GOT 

O0 450 ELSE 650 

600 IF K=68xN(C) THEN E=E+D :: GO 

TO 400 

610 IF 

TO 400 
620 IF 

TO 400 
630 IF 

TO 400 
640 1F K=15 OR K=é THEN 270 

650 FOR X=15 TO C STEP -D :: CAL 
L SOUND(400-25%X,150+90%xX,X):: N 


ON W 


K=éSxN(D)THEN E=E-S :: G0Q 


K=83*xN(B) THEN E=E-D 


K=88xN(C3) THEN E=E+S 
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EXT X :: Z=INT(4 

#RND+9):: GOTO 450 

660 FOR X=C TO 250 STEP 50 :: CA 

LL SOUND(400,400-X,6,800+3%X,3): 
: CALL SOUND(500 | 
,111,30):: NEXT X 
",D):: IF X THEN 690 ELSE IF Q$= 
"2329992" THEN 970 

670 Y=INT(SY#RND)+D :: 
,Y:D):: 1F X$="G" THEN G=G+D 

680 IF X$="3" THEN 670 ELSE CALL 
MAJ(G$S,Y,64):: GOTO 490 

690 CALL MAJ(GS,X,64):: CALL SPR 
ITE(H3,68,B,149,90+76%*INT(BxRND) 
,#D,124,9,D,25é6, 
#B,132,B,D,256,-25,C):: 

TO 1000%RND 

700 CALL KEY(C,K,S):: IF S THEN 
IF K>48 AND K<54 THEN Y=ASC(SEGS 
(G+,K-48,D))-64 

:: IF Y=B OR Y=5 THEN 850 ELSE 7 
20 ELSE 720 

710 NEXT X 

720 ON ERROR 770 

730 CALL KEY(C,K,S):: W=KxS=49 : 
: CALL POSITION(HA4,X,X,H3,Y,YD:: 
S=(ABS(X-Y)<12) 

#(W=C) 

740 IF W-S=C THEN CALL MOTION(#H3 
Cr 26K(K=68) #(Y<165)-26#(K=83) #( 

Y>70),H#4,C,(2-F) 

#DXSGNCY-X)):: CALL LOCATE(#D,D, 
256,hB,D,256):: GOTO 730 

750 CALL POSITION(#4,X,X,H3,Y,Y) 
:: CALL LOCATE(HB,145,256+(256-Y 
>xW,#D,125,256-{ | 
256-X)*S,H#9+5xW,105,4x2xRND+X-2- 
2) 

760 CALL SOUND(-90,-S-5,C):: 
L COINC(#4,HB,23,W):: 
C#3,H#D,24,S):: © 

N D-W-W-S GOTO 730,780,800 

770 RETURN 720 

780 CALL SOUND(300,-D,C):: CALL 
MOTION(H#3,C,C,#4,C,C):: CALL DEL 
SPRITE(#HB, HD) :: 

CALL COLOR(#3,16) 

790 FOR X=C TO 220 :: CALL SCREE 

NC10-6x(X>20)):: NEXT X :: GOTO 

830 

800 CALL SOUND(300,-D,C):: 

MOTION(H#4,C,C,#3,C,C)D:: 

THEN Z=INT(4x%RND 
)+9 :: GOSUB 1490 : 

810 FOR X=D TO 12 :: 

#4,9,H#B,D):: CALL SOUND(10,-F,X/ 

B):: CALL COLOR( 

#4,1):: CALL SOUND(10,-F,X/B):: 

NEXT X 2=C 


:: X=POS(0$ ,"A 


XF=SE6GS(Q$ 


FOR X=C 


CAL 
CALL COINC 


CALL 
IF 2=10 


:: GOTO 720 


CALL COLOR( 





Eu 
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820 CALL POSITION(CH3,X,Y):: W=PO 
S(Q$,"2",D):: IF Xx%W THEN CALL M 
AJ(G$ ,W,65) 
830 CALL DELSPRITE(H3,#B):: CALL 
MAJ(PS(P),E+27,64+2):: GOTO 490 
840 Y=ASC(SEGS(G$,K-48,D))-44 
850 ON Y+D GOTO 450,650,8460,870, 
880,890,910,9750 
860 CALL SOUND(300,-7,C):: CALL 
MAJ(GS ,K-48,64):: GOTO 810 
870 CÂALL TEX(6):: FOR X=C TO D : 
: CALL HCHAR(22+BxX,21,T(26+X)+9 
6):: NEXT X :: 6 
OTO 550 
880 IF 2<>F THEN 650 ELSE X=INT( 
26#RND) :: Z=X+(X-7)#(X>12):: CAL 
L SOUND(280,500, 
D):: CALL SOUND(150,900,D):: CAL 
L MAJ(P#(P),27+E,64+2):: GOTO 45 
0 
890 FOR X=-D TO 3xRND :: CALL SO 
UND(400,784,C):: CALL SOUND(400, 
985,3):: CALL SO 
UND(800,784,3):: NEXT X 
900 IF 2=9 THEN CALL DELSPRITE(# 
4):: GOTO 820 ELSE IF Z>9 THEN 7 
20 ELSE 550 
910 CALL TEX(9):: FOR X=C TO 3 : 
: X$="rien" :: IF N(X)THEN W=E-( 
X=C)+(X=B)+5xCX= 
D)-5x(X=3)ELSE 940 
920 IF WET(26)0R LET(27) THEN X$= 
“sortie" :: GOTO 940 ELSE Y=T(27 
+W) -64 
930 IF Y THEN IF Y<F THEN X$=CHR 
$(32+Y)ELSE IF Y=F THEN X$="coff 
re" ELSE X$="enn 
emi" 
740 DISPLAY AT(21+X-Bx(X=C) ,20-5 
*X—-10%xCX=3) -LENCX#)/B)BEEP SIZEK( 
6):X$ :: NEXT X 
:: GOTO 550 
750 CALL MAJ(G$,K-48,64):: G=G+D 
:: GOTO 550 
9760 CALL SCREEN(B):: DISPLAY ATK 
23,7):"mission accomplie" :: FOR 
X=D TO 4 :: FOR 
Y=150%xX TO 500*xX STEP 50 :: 
L SOUND(60,Y,C):: NEXT Y :: 
X :: CALL SCREE 
NC13):: GOTO 980 
970 CALL TEX(F):: FOR X=22 TO D 
STEP -D :: CALL SOUND(SO0-X#X,11 
0+12*%xX,X/B):: NE 
XT X 
980 FOR X=C TO 990 :: NEXT X 
990 CALL SOUND(40,2000,9):: DISFP 
LAY ÀAT(24,4):"tapez ‘redo' ou * 
backK'" :: FOR X= 


CAL 
NEXT 


TX à: 


C TO 38 :: CALL KEY(C.K,S):: IF 
K=15 OR K=é THEN CALL SOUND(200, 
800,B):: GOTO 27 
0 
1000 NEXT X :: 
*““ ss: GOTO 990 
1010 FOR X=C TO F :: CALL HCHAR( 
3+X,3,82,28):: CALL HCHAR(12+X%X,3 
566,28):: NEXT X 

:: CALL HCHAR(12,3,74,28) 
1020 IF P£4 THEN 1040 ELSE CALL 
CHAR(40,"000103133333000033331 30 
3010000008080808 
08080000080808080808") 
1030 CALL CHAR(4A,"10181C1C1C1C0O 
0001C1C1C1C1810000000000080C0C00 
0O00COC08"):: RET 
URN 
1040 IF PF THEN CALL CHAR(40,"010 
ÀA25174F3FS5SFBF5F3F4F17250À0 100004 
048D0E4F8F4FAFAF 
8E4D048Â"):: CALL SPRITE(C#5,40,D 
525,80) :: RETURN 
1050 CALL CHAR(40,"21777FFFFF3F3 
E0CO" ,42,"S8S8D8FEFFFFFEFEé40" ,44, 
"81Cé/7F070E18000 
00" ,46,"8040E0C",47,"") 
1060 CALL SPRITE(#5,40,D,36,D,C, 
—-4,#6,40,D,26,D,C,-B,47,40,D,23, 


DISPLAY AT(24,D): 


10,C,-B,#F,44,D, 


30,D,C,B):: RETURN 

1070 Z=12-CK=-D)-9xK :: Y=ABSCK) 
:: IF S-Y THEN 1130 ELSE CALL HC 
HAR(C20,13-10%xK,6 

7,F#5S):: CALL HCHAR(20,16.5-5.5% 
K,129-K,5S) 

1080 FOR X=16 TO 19 :: 
RCX,.11-F4K,31,12%S)D2:: 
(X—4,2,74,10-5S): 

: NEXT X 

1090 CALL HCHAR(15,2,67,10-S):: 
FOR X=13-1.5XxP TO -14xéP<>D):: C 

ALL HCHAR(X,2,66 

510-S):: NEXT X 

1100 IF P<4 THEN CALL HCHAR(11,2 
582,3-FXCK=C)):: RETURN ELSE IF K 

=C THEN CALL DEL 
SPRITE(HS5,#H#7) 

1110 FOR X=3 TO 6 :: 

X52582,10-S):: NEXT X 
1120 FOR Y=B TO 6 STEP 4 :: FOR 

X=C TO D :: CALL VCHAR(Y,2Z+Y+X4+0C 
K=D) ,74,6):: NEX 

NEXT Y :: 
566,9):: RETURN 

1130 FOR X=13+10x(P=4)T0 20x%Y :: 
CALL HCHAR(X,2,66,9+S):: NEXT X 
:: FOR X=12 TO 

15%S :: CALL HCHAR(X,2,66,10):: 


CALL HCHA 
CALL HCHAR 


CALL HCHAR( 


CALL HCHAR(11,2 
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NEXT X 

1140 FOR Z2=K+CK=C)ITO K-(K=C) STEP 
B :: W=2=D :: FOR X=3*xY TO B+réx 

Y+6#{P=D):: CALL 
HCHAR(12+X,15-X#2,67,4):: CALL 
HCHAR(12+X,17+W-Bx2-2Z#X,65+W) : : 

NEXT X 

1150 FOR X=Yx(B-N(D)/B)TO 1.5+2. 
OJXY STEP .5 :: CALL HCHAR(12+BxX 
.18+3.5xW-X#2,12 

P+X-INTCX)I-Z2):: NEXT X 

1160 IF P=4 THEN 1190 ELSE IF P 

THEN CALL HCHAR(16,21+9xW,66,D-S 
):: GOTO 1240 

1170 FOR X=DxY TO .5+4.5xY STEP 
«9 1: CALL HCHAR(11.5+X,20+Wx7-B 
#X#2,77.5+2-X+1IN 

TCX)):: CALL HCHAR(11.5+X,3-(19+ 
BxINT(X))#(2=-D),74,9-BxINT(X)—-( 

- X=5)):: NEXT X 

1180 CALL HCHAR(11,16.5-2.5%2,90 
.3—-.3#2,S5):: GTS 1240 

1190 FOR X=3xY TO B+4xY :: CALL 
HCHARCS-X ,17+5xW-X%2,80-ÙU):: NEX 

T X :: FOR X=D T 

O0 4+3%xS :: CALL HCHAR(B+X,F+X,82 
518-BxX):: NEXT X 

1200 IF S THEN CALL HCHAR(10,14, 
66,6):: CALL HCHAR(10,15,82,4):: 
CALL HCHAR(11,1 

33:82:4):: CALL SPRITE(Hé+2,42+2+ 
2,D,68,116-2#27):: GOTO 1240 
1210 FOR X=C TO B :: CALL VCHAR(C 
3,29+25xW+X#7,74,18):: NEXT X :: 
CALL HCHAR(3,1é6 
.9-180.5%2,88-Ù) :: 
16.5-10.5%2,73+W) 

° 1220 FOR X=D TO B :: C=17+W-8x27+ 

X#2 :: CALL VCHAR(7,C,74,10):: C 

ALL HCHAR(S5+X,C, 

88-W) :: CALL HCHAR(18-X,C,73+U) : 
: NEXT X :: C=0 


CALL HCHAR(20, 


1230 CALL HCHAR(11,23+19x4,66,7) 


1240 NEXT Z :: RETURN 
1250 FOR X=4-4xN(D)TO F :: CALL 
HCHAR(12+X,15.5-X/B,31 ,B+X+X/B-I 
NT(X/B)):: NEXT 

X :: CALL HCHAR(12,18,130 ,NCD)): 
: CALL HCHAR(20,22,130,S) 

1260 CALL HCHAR(20,11,128,S):: C 
ALL HCHAR(20,11,67,12-12*xS):: CA 
LL HCHAR(15,12,6 

7):: CALL HCHAR(15,21,67):: IF P 
=4 THEN 1280 ELSE IF P THEN RETU 
S. ; 

1270 FOR X=-D TO D STEP B :: CAL 
L VCHAR(13,16.5+(4.54NCD))xX,56. 
S+X/2-N(CD) XX ,-Bx 
CNCDI=NCD-X) DD: 


NEXT X :: RETUR 
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N 
1280 CALL VCHAR(7,22,56,-F#(CNCC) 
=NCD))):: CALL VCHARC7, 11, 37 5 FA 
ENCD)=N(B))D)D:: R 
ETURN 
1290 FOR X=3 TO 20 :: CALL HCHAR 
(X5357/4,28):: NEXT X :: FOR X=D 
TO S :: XS=RPTSC 
"B",4+4#xX):: DISPLAY ATCF-X,11-X 
*B)SIZE(F+X#4) :"]X"EXEES" " _" 
1300 DISPLAY AT(C15+X,11-X%B) SIZE 
CF+X#4) : "NO"&EXSE"ML" :: NEXT X : 
: CALL HCHAR(17, 
14,67,6):: CALL HCHAR(18,13,67,F 
) 
1310 FOR X=C TO 3 :: CALL CHAR(A 
0O+X,RPT$S(C"0",13-4xX)8&RPTSC"F",3+ 
4#X)):: CALL CHâ 
R(44+X,RPTSC"0" ,4#xX)8&"FO"&RPTEC" 
F",14-4#xX)):: NEXT X :: RETURN 
1320 FOR X=F TO -15*x{S=C):: CALL 
HCHAR(X,13,31,F):: NEXT X :: DI 
SPLAY AT(16,12)5S 
12E(6):"2CCCCA" :: 
514,66,-6x(CS=C)) 
1330 FOR X=15 TO 18x%S :: CALL VC 
HAR(10,X,82,6):: NEXT X :: RETUR 
N 
1340 FOR X=19 TO -20x(S=C):: 
L HCHAR(X,10,66,14):: NEXT X 
1350 FOR X=D TO BxS :: XS=RPTS(" 
C",F+B#%X):: DISPLAY AT(18+X,10-X 
)SIZ2E(10+BxX):"a 
F&XE&"A" :: NEXT X :: RETURN 
1360 W=K=D :: FOR X=€ TO D :: F0 
R Y=C TO D :: 2=17+W-6xK-CBxX+Y) 
#%*K :: CALL VCHAR 
(9,2,74+S%xF,9):: CALL HCHAR(17+X 
525378+K+F#S-Y):: NEXT Y 
1370 FOR Y=D TO 3+X :: CALL HCHA 
RC17+X,17+W-CB+X+Y)#K,66+S):: NE 
XT Y :: CALL HCH 
ARC17+X,17+W-C3+X)#K, Fat —(S=C) 
Ds: NEXT * 
1380 IF S THEN IF WU THEN DISPLAY 
AT(9,5)2SI12E(4):",-./" ELSE DISP 
LAY AT(9,21)S12E 
C4):"C)Dx+" 
1370 RETURN 
1400 Z2=12-CK=-D)-9xK :: Y=S+ABS( 
K)=D :: FOR X=C TO F-CK=0):: CAL 
L UCHAR(3,2+X,74 
—Y,14+4xABS(K)D):: 
THEN 1420 
1410 FOR X=é TO F :: CALL HCHAR(C 
X-F#CX=F),2,66,9-CK=C)):: CALL H 
CHARCX+11,2+CK=- 
D),67,10*x*ABS(K)):: NEXT X :: CPS 
L HCHAR(20,30+(CK=D)x27,75,S):: R 


CALL HCHAR(1é 


CAL 


NEXT X :: IF Y 





CT à 


ETURN 
1420 WÆ=N(D)=C :: FOR X=-3xW TO 5 
:: CALL HCHAR(F-X,15-X,74,4+BxX 
>):: NEXT X :: Y= 
ABS(K):: FOR-Z=K+(K=C)TO K-CK=C) 
STEP 8 
1430 FOR X=3xY TO B+3xY :: W=19+ 
C2=D)#x5-2x%X :: CALL HCHAR(CF-X,UW, 
72-(2=D)):: CALL 
HCHAR(15+X,W,65+(Z=D)):: NEXT X 
1440 FOR X=1.5%xY TO 1+4,.5xY STEP 
.9 1: W=19+(Z=D)x5-BxXx2 :: CAL 
L HCHAR(8S.S-X ,UW, 
87+(2=D) xB+(X>INT(X))2):: CALL VC 
HAR(9.5-X,W,74,5+BxX) 
1450 CALL HCHAR(14+X,W,76-(2Z=D) x 
B-CX>INT(X)9)2:: NEXT X :: NEXT 2Z 
:: FOR X=15 TO 
CALL VCHAR(9,X,31,6):: N 
RETURN 
1460 CALL HCHAR(20,4,66,26):: FO 
R X=B-B#N(D)TO 4+S :: CALL HCHAR 
C15+X,15-X,67,4+ 
B*X) :: NEXT X 
1470 CALL HCHAR(20,9,64,S):: CAL 
L HCHAR(20,24,465,S):: CALL HCHAR 
(17,21,65+BxN(C) 
>:: CALL HCHAR(17,12,64+3xN(B)) 
1480 CALL VCHAR(F,11,57,F+FxCNCD 
)+NC(B)=D)):: CALL VCHAR(F,22,5é6, 
F+F#CNÇCC) +NCD)=D 
22:: RETURN | 
1490 DATA 3F7F7700777F7F7F7F0000 
0000000000FCFEEE00OEEFEFEFEFE 
1500 DATA 020207070A0F0702020203 
01000F3FFF0000000080800000000000 
80COFOFCFF,03078 
9C7673F3F1F0F0F07070303010180C04 
OC1C7FEFCFS8FS8FOFOEUEOCOCO8 
1510 DATA 03050702011F3F7FDF8F87 
C3860C08388040C08000F0F8FCF6E2C2 
87C2602038,030E1 
02405030507020F1B31F0000000E0380 
42442C242E448F8D88C0F 
1520 RESTORE :: FOR X=F TO Z :: 
READ X$ :: NEXT X :: CALL CHAR(Cé 
0,X$):: RETURN 
1530 CALL HCHAR(D,14,32):: Y=INT 
C1SX*RND)+B :: CALL COLOR(CC,Y,Y,B 
sVeYsidsteTios F 
OR X=4 TO F :: CALL COLORCHX,D): 
: CALL COLOR(X,Y,Y):: NEXT X :: 
RETURN 
1540 CALL COLOR(C,15,15,4,B8,13,5 
513,12:6,4,13,7,F,8,F,13,F,13,12 
5153) 
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1550 CALL COLOR(CHS,16,H6,15,HR7,1 

D, #F,;9):: RETURN 

1569 CALL COLOR(C,11,11,5,12,12, 

6,12,B,7,F,D,13,12,11)23: CAEL CO 

LOR(CHS5,12):: RET 

URN 

1570 CALL COLOR(C, 6,6,B,F,S, 
1256: 3518,7 ,F$12,F514:99858 

RN 

1580 CALL COLOR(C,B,B,4,12,7,5,1 
L512:6:7.11,7/,:1147221%: RETURN 

1590 CALL COLOR(C,15,15,4,B,10,5 
519,14,6,12,14,7,F,160,F,10,12,53 
514,15)2:: CALL C 

OLORCH5,12,H#7,12):: RETURN 

1600 SUB TEX(A) 

1610 CALL HCHAR(21,1,32,128):: I 

F À=9 THEN SUBEXIT ELSE IF AS T 

HEN DISPLAY AT(2 

2,1)BEEP:'"o n desirez vous alle 

pe 

1620 ON +1 GOTO 1630,1640,1650, 
1660,1670,1680,16970,1700,1710 
1630 DISPLAY AT(24,9):"a la camp 

agne" :: SUBEXIT 

1640 DISPLAY AT(24,6):"affronter 
le desert" :: SUBEXIT 

1650 DISPLAY AT(24,6)d):"visiter 1 

e chateau" :: SUBEXIT 

1660 DISPLAY AT(24,5):"dans Îles 

souterrains" :: SUBEXIT 

1670 DISPLAY AT(24,11):"en ville 

* ss: SUBEXIT 

1680 DISPLAY AT(22,2)BEEP:"vous 

etes arrive chez vous" :: SUBEXI 

. 

1690 DISPLAY AT(22,11):"entree": 
:TAB(11);"sortie" :: SUBEXIT 
1700 DISPLAY ÀAT(21,1)BEEP:"depla 

cement":TAB(9);"par touches flec 

hees":"tir par t 

ouche 1":"abandon 

cKk*" :: SUBEXIT 
1710 DISPLAY AT(22,2):"krapul a 

eu raison de vous":" : ici sera 
votre tombe” 

1720 SUBEND 

1730 SUB MAJCAS,R,0C) 

1740 AS=SEGSCAS,1,R-1)&CHRSCC)I&S 

EGSCAS,R+1,99):: IF LENCAS))>6 TH 

EN SUBEXIT 

1750 IF C=é4 THEN CALL SOUND(S00 


‘redo' ou ‘ba 


. :250,5)ELSE CÂALL SOUND(300,9700 ,4 


) 
1760 CALL HCHAR(1,17+2%R,C-32) 
1770 SUBEND 
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Ce programme, écrit en assembleur, 
permet de créer des dessins 
directement à l'écran à l'aide d'un 
crayon optique. Cet accessoire (qu'il 
vous faudra construire en suivant les 
indications jointes à cet article) n'est 
pas indispensable car le programme 
peut aussi recevoir des ordres 
provenant du clavier. 


Les fichiers source qui apparaissent 
pages suivantes concernent une version 
utilisable avec une extension de 
mémoire 32Ko. Cependant, nos lecteurs 
- munis seulement de la Mini-mémoire 


pourront utiliser ce programme en 
entrant, sous EASY BUG, la liste de 
codes machines placée en fin d'article 
(une autre solution, plus simple, 
consiste à charger le code objet situé 
sur la cassette d'accompagnement du 
numéro 8, avec l'option L de EASY BUG; 
le programme est baptisé “CRAYON"). 
La différence entre les deux versions 
porte essentiellement sur l'affichage 
des menus, qui ont dus être raccoucis 
afin de permettre leur implantation 
dans les 4Ko de la Mini-mémoire. Pour 
la version “éditeur/assembleur”, nous 
avons prévu d'autres fonctions sous 
forme de modules qui seront ajoutés 
par la suite; cela ne sera bien sûr pas 
possible avec la version "Mini- 
mémoire”. 


Nous ne nous étendrons pas sur le 
fonctionnement du programme car les 
nombreuses remarques présentes dans 
les listings vous permettront de 
comprendre aisément. De même, il 
n'est pas nécessaire de donner un mode 
d'emploi pour la version “éditeur/ 
assembleur”, les divers menus étant 
très “parlants”. Ce n'est pas tout à fait 
aussi simple avec la version 
"Mini-mémoire”; nous vous proposons 
donc un petit mode d'emploi dans 
lequel les chiffres représentent les 
touches qu'il faut presser pour accéder 
à une fonction, les lettres minuscules 
entre parenthèses correspondent aux 
mêmes fonctions, mais cette fois avec 
le crayon optique. 


Menu principal 
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Crayon optique 
Bernard Bezuel 


4 — p) : point 

e — tt) :trait 

3 — td) : droite 

A -— (eo) : curviligne 
5 — (e) : écran 


Options 


4 : Point 
Mise en place d'un point 


8e : Trait 


4 (VI Visible 
le déplacement de la mire laisse 
une trace visible (pixels allumés). 

2 ti) invisible 
efface les points visibles (pixels 
éteints). 

3 (c) couleur 
choix d'une nouvelle couleur (code 
des 16 couleurs de O0 àF). 

A tf) fond 
l'écran est colorié en couleur de 
fond (pixels éteints). 

6 (r) remplissage 
la surface intérieure à la ligne 
fermée est coloriée (pixels 
allumés) avec choix de couleur 
code 0 à F). 


3 : Droite 


1 (a) sxes 
trace deux axes perpendiculaires 
(pixels allumés). 

e (s) segment 
place une mire fixe en extrémité 
d'un segment (ler choix), puis 
trace un segment jusqu'à la mire 
mobile (2ème choix). 

3 (h) horizontale 
trace une droite horizontale. 

4 (v) verticale 
trace une droite verticale. 
tt) 
retour au menu principal. 


4 : curviligne : 
remplissage de surface autour d'un 
point pivot. 
1 (a) 
en allumant les pixels. 
E le) 
en coloriant 
éteints). 


le fond (pixels 


4 (s) 
confirmation ou annulation de 
l'option remplissage curviligne. 

56 (p) 
mise en place du point pivot avec 
choix de la couleur (code 0 à F). 


tt) 
retour au menu principal. 


5 : écran 
nettoyage de l'écran (pixels éteints). 


Les options y/s/2/e, invisible, fond 
et curviligne Ss'annulient en les 
choisissant deux fois. La mire se 
déplace au crayon optique ou avec les 
touches # £, À 5, D, Z Net cC. 


Liste des composants 
nécessaires 


1 Photo-transistor Texas type TILB1 

2 amplis opérationnels LF156 (circuits 
intégrés, boîtier 8 broches) 

4 résistances 82KQ, 1/4W 

1 résistance 68KQ, 1/4W 

1 résistance 2,2KQ, 1/4W 

1 condensateur 47nF, 250V 

1 condensateur 82nF, 250V 

1 connecteur CANON 9 broches femelle 
avec capot : * 

1,5 mètre de câble 4 conducteurs 
blindés 

| plaquette d'essai à bandes, de 1 cm * 
10 cm (4 rangées de 39 trous). Les 
bandes  cuivrées doivent être 
perpendiculaires à la grande 
longueur de la plaquette. 

1 tube plastique de 10mm de diamètre 
intérieur et de, 16 cm de longueur 
(glisser la plaquette cablée à 
l'intérieur du tube, montage 
légèrement serré) 

2 embouts plastiques, un côté cellule 
photo transistor, un côté sortie 
câble vers console. Fermer le tout en 
collant au trichio 

2 portes fusibles à boulonner 

2 fusibles de 300mA 


Les connexions sur la plaquette sont à 
faire en f{1 souple, fin et isolés (type 
téléphone), environ 2 mètres. 
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Schéma théorique 


FUSIBLES 300mA 


Les portes fusibles 
peuvent être 
boulonnés sur le 
blindage de la 
carte mère 


e 
o 
É 
E 


ALIMENTATION DU TI 
(côté soudures) pour Bd'et 87, vüir 
"99 Magazine” n° 4, page 47 


Alimentation du crayon optique 
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MAGAZINE n° 5 


72 


Le traitement des fichiers 


en PASCAL 


Gérard Santraille 


Les adversaires du Pascal argueraient, 
à juste titre d'ailleurs, que ce langage 
pêche par sa lourdeur au niveau des 
manipulations de fichiers. La première 
version de Pascal (proposée pañ N. 
Wirth dans les années 1970) était 
pratiquement dépourvue d'instructions 
permettant de gérer efficacement les 
entrées/sorties sur fichiers. 

Depuis ces temps héroïques, Pascal 
s'est considérablement étoffé et tous 
les compilateurs offrent désormais de 
nombreuses commandes permettant 
l'accès à de très nombreux types de 
fichiers : nous verrons par la suite 
ceux qui sont prédéfinis. Quant aux 
méthodes d'accès, elles se 
répartissent très classiquement en 
deux catégories : 


e accès séquentiel : les données 
sont lues et/ou écrites les unes après 
les autres. 

e accès direct : on se positionne 
directement sur un enregistrement 
pour lire ou écrire en spécifiant sa 
position par rapport au début du 
fichier. 

Toutes les autres techniques, plus ou 
moins élaborées, d'accès aux fichiers 
comme le séguentie] indexé ou le 
Hash-coding s'appuient sur ces deux 
types fondamentaux. 


Notions de 
bases : 


Fichiers 
Enregistrements 
Tampons 


Un fichier est un ensemble (de 
données) structuré en enregistrements. 
On symbolise souvent un fichier par 
une feuille de papier et ses 
enregistrements par les lignes formant 
le texte (contenu du fichier). 

Prenons un exemple concret. Supposons 
que l'on désire collecter des 
informations sur un grand nombre de 
personnes (fichier de relations). On 
dispose pour chaque individu de son 
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nom, de son prénom et de son adresse. 
Manuellement on écrirait sur une 
feuille, pour chaque personne, la liste 
des informations connues. 

La déclaration Pascal correspondant à 
une personne pourrait être : 


type 

personne = packed record of 
nom : string{20); 
prenom _ : string{15); 
tel_dom : stringl13}; 
tel-bur : string{22]; 
adr| : stringl25]; 
adr2 : string{20); 
adr3 : stringl 10]; 
code : stringl6); 
ville : string[20}; 
end; 


Cet ensemble d'informations, relatif à 
une seule personne, correspond à un 
enregistrement (record). 


À l'attention des puristes signalons 
que le terme Enregistrement est ici, 
propre au Pascal. 11 ne correspond pas à 
la notion “d'enregistrement de fichier” 
communément admise par les 
informaticiens. 


Dans notre cas l'enregistrement est 
une entité dont l'organisation (le type) 
est entièrement définissable par 
l'utilisateur. Ce dernier est donc libre 
de créer la structure qui correspondra 
le mieux à son problème. La taille et la 
complexité d'un ‘record n'ont pour 
limite que l'imagination du pro- 
grammeur. 


L'assemblage de tous les enre- 

gistrements va former un fichier. Un 

fichier est donc une suite 

d'enregistrements qui : 

e ont tous la même structure (le 
même type) 

e peuvent eux-même être composés de 
plusieurs éléments (appelés 
champs). 


La déclaration d'un tel fichier se fait 
dans la rubrique Var par : 

fichier : file of personne; 
Notons que la définition du type fichier 


ne précise que le type des éléments qui 
le compose. 


Remarque : Un enregistrement peut 
lui-même être composé  d'enre- 
gistrements. On peut ainsi bâtir des 
structures imbriquées extrêmement 
complexes. La composition des données 
en ensembles puis en ensembles 
d'ensembles est l'une des grandes 
originalités du Pascal. 


La déclaration d'une variable fichier F 
introduit automatiquement une 
variable associée au fichier. Cette 
variable s'appelle le tampon (ou la 
fenêtre) de fichier et son type est 
celui des composants du fichier. 
Littéralement le fichier est désigné 
par F°. 


Si nous reprenons notre feuille de 
papier pour représenter un fichier, la 
fenêtre correspondrait à une règle que 
l'on déplacerait verticalement de ligne 
en ligne. Dans cette réprésentation 
chaque ligne équivaut à un 
enregistrement. À un instant donné, on 
ne peut accéder pour lire ou écrire qu'à 
l'enregistrement situé dans la fenêtre 
(la ligne pointée par la règle). Cet 
enregistrement est appelé élément 
courant. Une opération de lecture (ou 
d'écriture) sur le fichier à pour action 
de déplacer l'élément courant dans le 
tampon du fichier. 


Toutes les actions d'entrées/sorties se 
font par l'intermédiaire de ce tampon. 
Ce dernier se comporte comme une 
variable du type des enregistrements 
du fichier. Les accès à un fichier (sauf 
comme nous le verrons plus loin pour 
certains fichiers de type prédéfinis) se 
décomposent de la façon suivante : 





‘)°) MAGAZINE n°6 


Lecture 


e positionnement du tampon 
à l'endroit souhaité 


Ecriture 


e positionnement du tampon 


à l'endroit souhaité 


pour l'accès direct seulement 


e lecture du fichier vers 
la variable tampon 


e visualisation de 
la variable tampon 


Instructions 
élémentaires 


Lecture 
Reprenons notre fichier F : file of 
personne avec : 


personne = packed record of 

nom : string{20); 
prenom : string{15}; 
tel-dom  :string{13]; 
telbur  : string{22); 
adr! : string{25); 
adr2 : String[20); 
adr3 : String[ 10]; 
code : stringl6); 
ville : string[20]; 
end; 


L'ouverture d'un fichier en lecture se 
fait au moyen de l'instruction 
RESET(F ,'nom_du fichier’) ou 
RESET(F) qui est équivalent à 
RESET(F,,'F"). Cette opération 
positionne la fenêtre sur le premier 
élément du fichier et le tampon F° est 
initialisé avec la valeur de l'élément 
courant placé sous la fenêtre. 

Lors de l'ouverture par RESET le 
premier élément est automatiquement 
lu. La variable tampon contient donc le 
premier enregistrement : il n'est pas 
nécessaire de le lire. 

On peut manipuler les différents 
éléments de cet enregistrement de la 
même façon qu'une variable classique 
du même type. Ainsi si l'on désire 
visualiser à l'écran le champ de 
l'enregistrement contenant le nom de 
la personne il suffit d'écrire 
WRITELN(F".NOM). 


Pour accéder à l'enregistrement 
suivant du fichier il faut exécuter la 
commande GET(F). Cette instruction a 
deux effets : 
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e écriture (assignation) 


de la variable tampon 


e écriture physique sur 


le fichier 


e la fenêtre de lecture avance d'un 
enregistrement 

e la variable F° prend les nouvelles 
valeurs de l'enregistrement pointé 
par la fenêtre. 


la lecture d'un enregistrement se fait 

donc en deux étapes. 

e transfert des informations de 
l'enregistrement vers la variable 
tampon F° 

e visualisation de cette variable à 
l'écran. 


On peut de cette façon parcourir 
séquentiel//lement tout le fichier et 
l'afficher à l'écran. Lorsque la fin du 
fichier est atteinte la fonction 
intrinsèque EOF(F) devient vraie. 

La procédure suivante permet de lire 
en entier notre fichier et d'afficher les 
noms de chaque enregistrement. 


procedure LireFichier (var fichier : file 
of personne); 


begin 
reset(f,fichier); 
while not eof(f) do 
begin 
writeln(f”.nom); 
get(f) 
end; 
close(f,lock) 
end. 


Notons la présence du while not 
eof(f) qui permet d'effectuer une 
séquence d'instructions tant que eof(f) 
est faux donc tant que la fin du fichier 
n'a pas été atteinte. 


Remarque : L'ouverture d'un fichier au 
moyen de RESET permet également de 
le mettre à jour et donc de modifier 
certains enregistrements ou d'en créer 
de nouveaux. Par contre RESET ne 
permet pas de créer un fichier : il faut 
que le fichier soit déjà physiquement 


présent sur la disquette pour pouvoir 
être ouvert par RESET. 


Ecriture 


Comme pour la lecture, la première 

opération doit être l'ouverture du 

fichier. Cette action associe, comme 

nous l'avons vu, un tampon au fichier 

qui sera utilisé pour les opérations 

d'entrées/sorties. 

L'écriture sur un fichier se fera en 

deux étapes. 

e écriture dans la variable tampon 
F° (affectation) 

e écriture de F” sur le fichier. 


L'instruction qui permet d'ouvrir un 
fichier en écriture est : 
REWRITE(F, 'nom_du_fichier‘) ou 
REWRITE(F) qui est équivalent à 
REWRITE(F,,'F'). 
Celle qui écrit la variable tampon F° 
sur le fichier est PUT(F). Par ailleurs, 
REWRITE est le mode d'ouverture qui 
doit être utilisé pour créer un nouveau 
fichier. 
Ainsi si l'on désire écrire sur le 
fichier l'enregistrement correspondant 
à une personne il convient de définir 
chacun des éléments de F° puis d'écrire 
la variable. 
Exemple : 


:= ‘Jackson’; 
. :* Michael'; 
:= (43) 66.77.88’; 
:= (8) 22.1 1.22'; 
:= "28, Melody Street'; 
‘flat 23WZ, 1024th 


f” prenom 
f”.tel_dom 
f°.tel_bur 
f’adri 
f”.adr2 
floor'; 

f”adr3 
f”.code 
fville 


:= "43.122; 
:= 'THRILLER CITY"; 


Les deux instructions  PUT/GET 
constituent les deux éléments de base 
pour pouvoir dialoguer avec un fichier. 
Nous venons de voir comment ouvrir, 
lire et écrire dans un fichier. Une fois 
le travail terminé il convient de le 
fermer. La fermeture d'un fichier 
provoque plusieurs actions : é 
e dissociation de la variable F 
associée à ‘nom_de_fichier’ lors du 
Reset(F 'nom-_du_fichier‘). 
e restitution au système de la 
mémoire utilisée par la variable 
tampon F°. 
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C'est l'instruction CLOSE(F.,option) qui 
a cette lourde tâche. Le mot-clé option 
permet d'effectuer divers types de 
fermeture. 


LOCK : c'est l'option que l'on emploie 
dans la majorité des cas. Le fichier est 
fermé et toutes les opérations 
sauvegardées. 

PURGE : à manipuler avec beaucoup de 
précautions. Le fichier est détruit qu'il 
ait été ouvert en lecture ou en 
écriture. Ÿ 


CRUNCH : le fichier est fermé et 
tronqué à l'endroit où se trouvait la 
fenêtre. Toutes les informations 
situées au delà sont perdues. 

NORMAL : si le fichier a été ouvert en 
lecture il est fermé et aucune action 
particulière n'a lieu. S'il a été ouvert 
en écriture {l est détruit comme avec 
PURGE. 

Si le mot-clé option est absent l'option 
par défaut est NORMAL. 


Différents 
modes 


d'acces 


Toutes les opérations que nous venons 
de décrire utilisent l'accès séquentiel 
(le plus simple mais bien souvent le 
moins performant). Il existe de 
nombreuses techniques permettant 
d'isoler une information noyée dans une 
masse importante. 

St l'on cherche la signification du mot 
Seringa dans le dictionnaire (plante à 
fleurs blanches très odorantes) {1 est 
bien évident que l'on ne va pas 
parcourir l'ouvrage de la première page 
à celle contenant notre cible. On 
effectue une recherche par 
encadrements successifs du mot à 
trouver. Cette technique qui 
s'apparente à la dichotomie est 
évidemment beaucoup plus efficace. 
Une première remarque s'impose. Une 
recherche autre que séquentielle ne 
peut se faire que sous certaines 
conditions. Par exemple on pressent 
bien qu'une recherche par 
encadrements successifs ne peut se 
faire que si l'ensemble de travail est 
ordonné. 


Plus généralement, toutes les 
méthodes d'accès à des informations 
contenues dans un fichier imposent 
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certaines restrictions et ne peuvent 
s'appliquer à tous les types 
d'ensembles. 
Pour pouvoir gagner du temps lors de 
l'accès il faut inévitablement faire 
l'une (ou les deux) de ces concessions : 
e Fichier à structure particulière 
(comme le dictionnaire). Le domaine 
sur lequel va s'effectuer la 
recherche doit présenter certaines 
caractéristiques particulières. 11 
sera partiellement ou totalement 
ordonné ou encore ses éléments 
seront regroupés par famille 
suivant un critère de sélection. 
Stockage d'informations  supplé- 
mentaires. 


Reprenons l'exemple de le recherche 
d'un mot dans une ensemble de taille 
respectable (toute la langue française 
s'il s'agit du dictionnaire) et voyons 
Sur ce cas précis, facilement 
généralisable, les principales 
méthodes. 


Recherche 
séquentielle 


Aucune contrainte particulière 
l'ensemble peut être quelconque et 1] 
n'est pas nécessaire de stocker 
d'autres Informations que les mots 
eux-mêmes. Ne peut s'appliquer qu'à 
des ensembles de petite taille. 


Recherche séquentielle 
Iindexée 


Comme son nom l'indique cette 
technique fait appel à un index. On 
répartit les éléments de l'ensemble 
(les mots du dictionnaire) en plusieurs 
classes ou sous-ensembles. Chaque 
classe contiendra les mots 
commençant par la même lettre. On 
note ensuite dans un index les 
positions (par rapport au début du 
fichier) de chaque classe. Pour 
rechercher un mot on se positionne 
dans la classe correspondante (on 
connaît toutes les positions) et on 
entreprend dans la classe une 
recherche séquentielle. Cette 
technique permet donc de partitionner 
le domaine de recherche pour travailler 
sur un ensemble beaucoup plus petit. 


Les contraintes sont ici de deux types : 
e l'ensemble doit être découpé en 
plusieurs sous-ensembles. 11 donc 
nécessaire de lui appliquer un 


certain traitement. Notons qu'au 
sein d'une classe les éléments ne 
sont pas ordonnés. De même les 
classes étant çomplétement 
indépendantes, elles peuvent 
apparaître dans n'importe quel ordre 
il est nécessaire de connaître les 
emplacements de toutes les classes 
donc de stocker une information 
supplémentaire. 


1] est parfaitement possible 
d'augmenter le nombre de classes afin 
de réduire encore le temps d'acccès. Si 
l'on prend en compte les deux 
premières lettres on passe de 26 
sous-ensembles à 676 (262) Les 
classes devenant de plus en plus 
petites les temps d'accés diminuent 
mais la quantité d'informations à 
stocker augmente. 


On peut ainsi faire une partition de 
plus en plus fine et même travailler 
sur un ensemble dont chaque élément 
constitue une classe. L'accès à 
l'information est alors instantanné : on 
effectue de l'accès direct pur. 
Remarquons que dans ce dernier cas il 
ne reste plus aucune contrainte sur 
l'ensemble puisque le travail de 
regroupement des éléments en classes 
est immédiat. Un singleton est en effet 
toujours ‘regroupé’ avec lui-même. Ce 
découpage présente donc un intérêt 
particulier. 

Le nombre de positions à mémoriser 
étant très important (un entier par 
élément) il serait extrêmement 
intéressant de définir une fonction 
permettant à partir de l'élément de 
calculer Sa position. || ne serait 
alors plus nécessaire de mémoriser 
toutes ces positions. Cette technique 
s'appelle le Hash-coding. 


Le Hash-coding 


Sans trop entrer dans le détail 
décrivons le principe de cette méthode 
simple et pourtant peu connue. L'idée 
consiste donc à calculer la position de 
l'élément dans le fichier en lui 
appliquant une certaine fonction (par 
exemple la somme des positions dans 
l'alphabet des lettres composant le 
mot). Cette technique suppose que l'on 
dispcse d'une fonction suffisamment 
sélective pour pouvoir qualifier 
différement et par là même pouvoir 
différencier chaque élément. 
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Ce n'est que très rarement le cas et 
plusieurs éléments peuvent alors 
fournir la même adresse de rangement, 
on parle de collisions. 11 est 
malheureusement impossible de 
s'affranchir de cette limitation. On la 
contourne souvent en juxtaposant les 
éléments fournissant la même adresse. 

La recherche se fait alors en deux 

temps : 

e calcul de la valeur à partir de 
l'élément et positionnement en 
accès direct sur l'enregistrement 
adéquat 
recherche séquentielle à partir de 
ce point d'entrée 


Cette technique s'apparente donc 
fortement au séquentiel indexé. Bien 
qu'elle semble plus intéressante 
(rappelons qu'aucune information 
supplémentaire n'est à conserver), elle 
souffre, de par sa conception, d'une 
très importante restriction. 
L'ensemble des adresses généré par la 
fonction n'est pratiquement jamais 
continu c'est à dire qu'il peut 
comporter des trous. Ainsi, si 
l'ensemble des adresses est 
(2,11,3,20,7) on va utiliser 20 
enregistrements (l'adresse la plus 
élevée) pour ranger 5 éléments. 
Certains systèmes d'exploitation 
réservent la place physique d'un 
enregistrement que s'il est non-vide. 
Cette discontinuité n'a alors aucune 
importance. Ce n'est hélas pas le cas 
de notre TI-99 qui réserve la place 
nécessaire à n enregistrements si on 
accède au niÊME même s'ils sont tous 
vides... 


L'accès direct en Pascal 


Nous réalisons que toutes ces 
techniques utilisent abondamment le 
positionnement direct sur un 
enregistrement. L'instruction Pascal 
qui permet cela est SEEK(F,position). 
La position du premier enregistrement 
d'un fichier est zéro. 

L'exécution de cette instruction 
provoque le déplacement de la fenêtre 
sur l'enregistrement spécifié. 1] 
convient ensuite de faire GET(F) ou 
PUT(F) selon que l'on désire lire ou 
écrire. 

Avec cette dernière commande nous 
disposons d'une panoplie d'instructions 
permettant de créer et mettre à jour 
les fichiers de tous poils. 


‘)!) MAGAZINE n° 5 


Fichiers de types 
prédéfinis 


Il existe deux principaux types de 
fichiers pré-établis. Ces fichiers 
peuvent être manipulés par d'autres 
instructions. 11s sont plus faciles à 
mettre à œuvre mais admettent 
certaines restrictions. 11 s'agit des 
types TEXT et INTERACTIVE. Tous les 
deux sont composés de caractères. Les 
fichiers de ce type n'ont pas à être 
définis avec le mot-clé file mais 
Simplement dans la rubrique Var 
comme une variable classique. 


indique au programme que f est un 
fichier de caractères exactement 
comme 


var f: file of char; 
l'aurait fait. 


Les fichiers de caractères ont une 
structure particulière. 11s sont formés 
d'enregistrements (eux-mêmes 
composés de caractères) de taille 
différente. Chaque enregistrement 
(ligne de texte) se termine par un 
caractère spécial qui marque la fin de 
la ligne. La présence de cette marque 
peut être testée par la fonction 
booléenne EOLN(F) qui est vraie si la 
fin de la ligne a été atteinte et fausse 
autrement. 


La lecture (respectivement l'écriture) 
sur un tel fichier se fait par 
READ(F,variable_lue) et  READLN 
(respectivement WRITE ou WRITELN). 
Ces instructions ont pour premier 
argument la variable fichier (celle 
utilisée lors du RESET ou du REWRITE) 
suivi de la (ou des) variable(s) à lire 
(ou à écrire) READ (WRITE) ne lit 
(écrit) qu'un seul caractère alors que 
READLN (WRITELN) manipule une ligne 
entière. 


Si F est de type TEXT et CH de type 
CHAR READ(F,CH) lit le caractère situé 
sous la fenêtre. Cette instruction est 
donc équivalente à 

CH=F"; 

GET(F); 
alors que pour un fichier de type 
INTERACTIVE l'ordre de ces 
instructions est inversé ainsi 
READ(F,CH) est équivalent à 

GET(F); 

CH=F"; 


Cette différence peut paraître minime, 
pourtant elle a son importance. Par 
exemple si on teste la fin de la ligne 
au moyen de EOLN(F), pour un fichier de 
type INTERACTIVE EOLN ne devient 
vraie qu'après avoir lu le caractère 
qui marque la fin de la ligne. 

Cette marque est donc lue avec un 
fichier INTERACTIVE, ce n'est pas le 
cas avec un fichier TEXT. 


Les fichiers créés à partir de l'éditeur 
de texte du système peuvent être lus 
(et modifiés) en les considérant 
comme TEXT ou INTERACTIVE. 

La principale limitation des ces 
fichiers est inhérente à la structure 
même de leurs enregistrements. 
Comme ils ont une taille variable (la 
marque de fin.de ligne peut se trouver 
n'importe où) le système est incapable 
de calculer l'emplacement physique 
d'un enregistrement donné sans 
parcourir le fichier jusqu'à lui. L'accès 
direct n'est donc pas envisageable. 11 
est néanmoins possible de faire de 
l'accès direct sur un fichier de 
caractères en déclarant explicitement 
sa structure, les enregistrements 
auront alors une taille fixe. Ainsi : 


type blabla = packed record of 
ligne : string{80] 
end; 


var fichier : file of blabla; 
ou directement : 


var fichier : file of string{80]; 
permet d'utiliser l'instruction SEEK. 


Programme 
exemple 


Le petit programme suivant fllustre 
certaines des commandes décrites 
auparavant. Le fichier ADRESSES.DATA 
regroupe les informations de toutes 
les personnes. 


La technique employée ici est l'accès 
direct simple pour chaque enre- 
gistrement. En début d'exécution ce 
fichier est intégralement parcouru et 
un ‘ableau-index est créé. Ce 
tableau regroupe les cinq premières 
lettres du champ ‘nom de chaque 
enregistrement du fichier. 
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Ainsi pour accéder aux informations 
relatives à une personne {il faut donner 
au programme son nom. |1 cherche alors 
dans l'index la position de 
l'enregistrement correspondant à cette 


crée ensuite le premier enregistrement 
du fichier, on le ferme en le 
sauvegardant, puis on l'ouvre à nouveau 
avec RESET qui permet aussi bien de 
lire que d'écrire. 


l'affectation d'une variable) mais le 
programme peut ainsi appréhender des 
quantités d'informations qui ne 
“tiendraient” pas en mémoire centrale. 


personne. 


Notez dans le listing le présence de la De conception 
directive ($I-] qui, associée à programme gère directement le fichier 
IORESULT, permet de tester la sur disquette. 
présence de ADRESSESDAT. Si ce lecture ou d'écriture sont évidemment 


très simple ce 


Les opérations de 


A vous d'enrichir ce programme en lui 
adjoignant, par exemple, des 
algorithmes de tri, d'édition sélective 
ou de sélection multi-critères. Faites 
nous part de vos suggestions... 


fichier est absent, RESET provoque une plus longues (l'écriture sur fichier est 0 


erreur : on emploie alors REWRITE. On beaucoup 


+ 


program FICHES; 
const bidon=false; 


var f : file of record 
nom : stringl20]; 
prenom : stringl15]; 
tel_dom : stringl13]; 
tel_bur : stringl22]; 
adri 1: stringl25]; 
adr2 : stringl20); 
adr3 : stringl10); 
code : stringlé]; 

ville : stringl20]; 

end; 


choix ,nmax : integer; 
pers 1 packed array[1..50] of stringl5]; 


procedure poursuivre; 

begin 

gotoxy(15,23); 

write(’ENTER pour continuer” ,chr(7)); 
readin 

end; 


procedure lister; 
var i tinteger; 
begin 
page(output); . 
uritelnC’L TS TE D E 81 JN OM 85’); 
writeln(’ 
gotoxy(0,5); 
seek(#,0); 
for i:=1 to nmax do 
begin 
get(#); 
writeln(’’:5,f".nom) 
end; 
for i:=1 to 6 do writeln; 
poursuivre 
end; 


procedure consulter; 

var ji 1 integer; 
nomi: stringl5]; 
nom2: stringl20]; 

begin 

page(output); 

writeln(’'CONSULTER UNE FICHE’); 

writeln(” 

gotoxy(0,8); 

write(’Nom 1724 

readin(nom2); 

if length(nom2)€5 then 
nom2:=concat(nom2,’ 

nomi:=copy(nom2,1,5); 

i:=0; 
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rapide que 


repeat 
ii=i+i 
until Cpers[il=nomi) or Çi=nmax#1); 
if i=nmaxt+i then 
begin 
gotoxy(15,19); 
writeln(’non repertorie .../); 
end 
else 
begin 
seek(f,i-1); 
get(#); 
writeln(’’:10,f".prenom); 
writeln(’Tel dom : ’,f°.tel_dom); 
writeln(’Tel bur : ’,f*.tel_bur); 
writeln(’’/:10,f*.adri); 
writeln(’/:10,f*.adr2); 
writeln(’’:10,f".adr3); 
writeln(’/:10,f*.code,’’:3,f*.ville); 
end; 
poursuivre 
end; 


procedure modifier; 
var nomi: stringl5]; 
nom2: stringl20]; 
i : integer; 
begin 
page(output); 
writeln( MODIFIER UNE 
writeln(* 
gotoxy(0,5); 
write(’Nom CRE | 
readin(nom2)} 
if length(nom2)45 then 
nom2:=concat(nom2,” 713 
nomi:=copy(nom2,1,5); 
i:=0; 
repeat 
it=it+i > 
until (perslil=nomi) or (i=nmax+1); 
if i=nmaxti then 
begin 
gotoxy(15,19); 
writeln(’non repertorie 
end 
else 
begin 
seek(f,i-1); 
get(f); 
writeln(’’:10,f*.prenom); 
writeln(’Tel bur : ‘,f*.tel_bur); 
write(’nou.val.: ‘’); 
readin(f*.tel_bur); 
writeln('Tel dom . ’-f".tel_dom); 
write(/’nou.val.: ‘’); 
readin(f*.tel_dom); 
writeln(’Adri 1 ” ,f°.adr1)} 
write(/’nou.val.: ’); 
readin(f*.adr1); 
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writeln(’Adr2 1 °,f°.adr2); 
write(/’nou.val.: ’); 
readin(f*.adr2); 
writeln(/Adr3 : ‘,f°.adr3); 
write(’nou.val.: ‘) 
readin(f*.adr3); 
writeln(’Code 1 ‘,f°.code); 
writeC’nou.vaT.: ‘3; 
readin({f*.code); 
writeln(’Ville t ‘,f°.ville); 
write(’nou.val,: ‘); 
readln(f*.ville); 
seek(f,i-1); 
put(#); 
end; 

poursuivre 

end; 


procedure supprimer; 
var nomi: stringl5]; 
nom2: stringl20]; 
i,j : integer:; , 
begin 
page(output); F 
writeln('SUPPRIMER UNE FICHE”); 
writeln(’ 
gotoxy(0,8); 
write(’Nom Ce E 
readln(nom2); 
if length(nom2)<5 then 
nom2:=concat(nom2,’ 233 
nomi :=copy(nom2,1,5); 
i:=0; 
repeat 
ii=i+i 
until (persCil=nomi) or (i=nmax+1); 
if i=nmax+i then 
begin 
gotoxy(15,19); 
writeln(’non repertorie ..,.’); 
end 
else 
begin 
for j:=i+1 to nmax do 
begin 
perslj-1)]:=pers(j]l; 
seek(f,j-1); 
get(f); 
seek(f,j-2); 
put(#f); 
end; 
nmax:=nmax-1 
end; 
poursuivre 
end; 


procedure ajouter; 

begin 

page(output); 

writeln(’ AJOUTER UNE F1 CN E’)j 
writeln(’ 


seekK(f,nmax); 

gotoxy(0,8); 

write(’Nom 3 ); readin(f*.nom); 

if length(f*.nom){5 then 
f*.nom:=concat(f*.nom,’ 24 

write(’Prenom : ’); readin(f*.prenom); 

write(’Tel dom : ’); readin(f*.tel_dom); 

write(’Tel bur : ’); readin(f*.tel_bur); 

write(’Adr, 1/3: ’); readin(f*.adr1); 

write(’Adr. 2/3: ’); readin(f*.adr2); 

write(‘Adr, 3/3: ‘); readln(f*.adr3); 

write(’Code t ‘)3; readin(f*.code); 

write(’Ville : ‘); readin(f*.ville); 
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nmax:=nmaxt+i; 
pers[nmax]:=copy(f*.nom,1,5); 
put(#) 

end; 


procedure logo; 

begin 

page(output); 

writeln(’”:5,/Gestion d’’un fichier d’’adresses’); 
writeln(’(C)opyright 99 Magazine et G. SANTRAILLE’); 
gotoxy(10,10) 


“end; 


begin {debut du programme principal} 
{$1-) 
reset(f,’ADRESSES.DAT’); 
{#i+) 
if ioresult{)0 then 
begin 
page(output); 
nmax :=0; 
writeln(’ADRESSES.DAT n’‘’existe pas’); 
writeln(’definition du premier enregistrement’); 
rewrite(f,’ADRESSES.DAT’); 
poursuivre; 
ajouter; 
close(f,lock); 
reset(f,’ADRESSES.DAT’); 
end; 
logo; 
gotoxy(15,10); 
writeln(’Un peu de patience’); 


nmax :=0; 

while not eof(f) do 

begin 

nmax:=nmaxt]; 
pers{nmax]:=copy(f".nom,1,5); 
get(#) 

end; 


repeat 
logo; 
writeln(’1 -» Liste des noms’); 
writeln(’’:10,/2 -> Consulter une fiche’); 
writeln(’’:10,73 -> Modifier une fiche’); 
writeln(’’:10,°4 -» Supprimer une fiche’); 
writeln(’’:10,°5 -> Ajouter une fiche’); 
writeln(’’:10,/6 -»> Finir’); 
writeln; 
writeln(’’:20,’Votre choix ?’)} 
repeat 
writeln(chr(7)); 
gotoxy(34,17); 
readin(choix); 
until Cchoix<7) and (choix)>0); 
case choix of 
lister; 
consulter; 
modifier; 
supprimer; 
ajouter; 
begin ” 
page(output); 
seek(f,nmax); 
close(f,crunch); 
exit(program) 
end 
end; 
until bidon=true 
end. 
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Editeur de caractères 


et lutins 
Julien Thomas 


Avec ce programme, écrit en Basic 
Etendu, il est possible de se passer de 
l'éternelle feuille de papier quadrillée 
pour obtenir les codes nécessaires à la 
redéfinition d'un caractère ou d'un 
lutin. 


L'écran du TI affiche une grille de 16 * 
16 carrés, représentant 256 pixels; il 
est donc possible de définir 
Simultanément quatre caractères 
graphiques. Pour faire passer les 
pixels de l'état “off” à l'état “on”, il 


10 CALL CLEAR :: 
STORE 
12=8 :: BI{2)=4 
20 FOR B=0 TO 9 
B +1, FOR Es10. TO 15": 
):: NEXT B 

30 


UNE F,JAUNE C,VERT F,MAGENTA, GRIS, BLANC 


100 A$="FF8080808080808" 
16):: 


10,2,9) 


110 CALL HCHAR(17,3,98,16):: 
:: CALL HCHAR(B,3,96,16):: 


lé 
CALL VCHAR(1,19,97,16):: 
104):: PH,PU=8 

120 CALL JOYST{(I,X,Y):: 
: IF K=18 THEN C=0 
)ELSE C=i 


GOTO 500 


AND Y=0 THEN 250 ELSE IF X=0 AND Y=-4 TH 
EN 300 ELSE IF X=-4 AND Y=0 THEN 3S0°ELS 


E 120 


200 IF PV=i THEN 120 ELSE PV=FU-1 


UB 2000 
210 
250 
SUB 
260 
300 
SUB 
310 
3930 
UB 2000 


2000 


2000 


CALL DELSPRITE(HI):: 
1: DIM BI(4) ,HD$(15),CI$(16):: BIt 
2:32 BI(3)=2":: 
1: HDS(B)=STRS(B):: 
HDS(B)=CHRS(B+SS 


DATA TRANSPA,NOIR,VERT M,VERT C,BLEU 
F,BLEU C,ROUGE F,CYAN,ROUGE M,ROUGE C, JA 


1: BS=RPTS(C"F", 
CALL CHAR(96,A$,97,RPTS("80" ,8),78 
,"FF",99,B$,104,4$,112,B#):: CALL COLOR{ 


CALL HCHAR(8,8, 


CALL KEY(1,K,9): 
:: CALL COLOR(10,2,11 
:: CALL COLOR(10,2,9) 

130 IF K=19 THEN CALL HCHAR{PU,PH,99):: 


CALL HCHAR(PU+1,PH,CA) :: 
IF PH=i8 THEN 120 ELSE PH=PHt1i 


CALL HCHAR(PU,PH-1,CA):: 
IF PV=ié THEN 120 ELSE PV=PU+i 


CALL HCHAR(PU-1 ,PH, CA) : : 
IF PH=3 THEN 120 ELSE PH=PH-1 


suffit de ce déplacer dans la grille à 
l'aide des joysticks. Pour faire passer 
les points de “on à ‘off”, il faut 
appuyer sur le “bouton de tir”. 


Pour mieux juger de l'effet de votre 
“création, le programme affiche le ou 
les caractères à leur taille réelle et 1] 
est possible de changer la couleur des 
points “on et “off”. 


Vous pouvez obtenir l'affichage des 
codes hexadécimaux à l'écran ou sur 


RE 


B1(4)=i 
NEXT 


OC) :: 


FOR B=1i TC 


NEXT B :: OC) :: 


IF COC=977 THEN 
J29 NEXI-DS-n: 
530 FOR B4=9 TO ié :: 
ALL GCHAR(E4,B5S,CGC):: 
MP=COMP+B1(B5-2) 
540 NEXT ES :: 
550 FOR Bé=7 TO 10 : 
IF COC=97 THEN 
560 NEXT Bé :: 
9/0 FOR E7=i 
CALL GCHâR(B7,B8,C0C):: 
. OMP=CCMP+BI{BS-10) 
579 NEXT B8 :: 
580 FOR B9=15 TO 18 :: 


FEB" re 


imprimante. Pour le dernier cas, vous 
obtenez la représentation du caractère 
sur le listing, la transmission à 
l'imprimante ne se fait pas en haute 
résolution, ce qui autorise une 
adaptation aisée à différents types 
d'imprimante. Le programme est prévu 
pour une imprimante parallèle; pour 
une imprimante série, il faut modifier 
la ligne 800  (OPENS1I:"RS232 
BA=9600", par exemple). 


(s 


360 CALL HCHAR(PU,PH+1, CA) 
400 FOR B=0 TO 20 
500 FOR Bi=1 TO 8 :: 
LL GCHAR(B1 ,B2,C0C):: 
P=COMP+B1 (B2-2) 
510 NEXT B2 :: 
520 FOR B3=7 TO 10 


s:: NEXT B :: GOTO 120 

FOR EZ=3 TO é :: CA 
IF COC=797 THEN COM 

GOSUB 2100 

:: CALL GCHAR(EBI,B3,C 

COMP=COMP+BI(E3-6) 

2100 :: NEXT Bi 

FOR E5=3 TG 6 :: C 
IF COC=997 THEN CO 


GOSUE 


GOSUB 2100 

:: CALL GCHAR(B4,Bé,C 
COMP=COMP+EI (Bé-6) 
2100 :: NEXT B4 

FOR BS=i1 TO 14 :: 
1F COC=99 THEN C 


GCSUB 


GOSUB 2100 
CALL GCHÂR(E7,B9, 


COC):2 IF COC=99 THEN CCOMP=COMP+BI(B9-14 
140 IF X=0 AND Y=4 THEN 200 ELSE IF Xx=4 ) 


1: GOS 


GOTO 400 
15 GO 12,C000C):: 
2-14) 
GOTO 400 
: GO 


970 NEXT B9 :: 
600 FOR B10=7 TO ié :: 
1: CALL GCHAR(B10,611,CGC):: 
HEN COMP=COMP+BI(B1i1-10) 

610 NEXT Bii 
620 FOR Bi2=i5 TO 18 :: 
IF COC=55 THEN COMP=COMP+EI (EI 


430 NEXT B12 :: 
700 DISPLAY AT(17,1):"CODE HEXADECIMAL:" 


GOSUE Z10f :: NEXT E7 
FOR Bii=ii TC i4 
IF CGC=959 T 


: GOSUE 2100 
CALL GCHAR(BIC,S 


GOSUB 2100 :: NEXT B10 


1: DISPLAY AT(16,1) : CHAINES 


710 RESTORE 
B=1i TG ié 


GOTO 4060 
:: GOS 


:: CALL DELSPRITE(HIi):: 
11 DISPLAY AT(B,16) :USING "##R° 
:B :: READ COUS :: 


FOR 


DISPLAY AT{B,21):COU$ 





:)!) MAGAZINE n° 8 


:: NEXT 

720 DISPLAY AT{22,1):"" :: DISPLAY AT{23 

,1):" COULEUR DU DESSIN?" :: ACCEPT AT(23 

,20)VALIDATE(DIGIT):CODE :: IF CODE OR 
CODE)16 THEN 720 

730 DISPLAY AT(24,1):"COULEUR DE FOND?" 
: ACCEPT AT(24,18)VALIDATE(DIGIT) :COFC 

:: IF COFO<1 OR CCFO>16 THEN 730 

740 FOR B=1 TO'16 :: DISPLAY AT(B,18):"" 

:: NEXT B :: CALL COLOR(11,COFO,1) 

750 FOR B=1 TO 6 :: CALL HCHAR(B,22,112, 
&)1:: NEXT B :: CALL CHAR(120 , CHAINES): : 
CALL MAGNIFY(3) 

760 CALL SPRITE(#1,120,C0DE,17,185) 

770 DISPLAY AT(Z1,1):"1-MODIFICATION COU 
LEURS" :: DISPLAY AT{22,1):"2-MODIFICATI 
ON DESSIN" :: DISPLAY AT(23,1):"3-NOUVEA 
Ü DESSIN" 

.775 DISPLAY AT(24,1):"4-IMPRESSION 

S-FIN" 

780 CALL KEY({1,K1,S1):: IF Si=0 THEN 780 
785 FOR B=21 TO 24 :: DISPLAY AT(B,1):"" 
:: NEXT B 


786 1F Ki=9 THEN 800 ELSE IF Ki=10 THEN 
CALL DELSPRITE(#1):: CALL CLEAR :: END 
790 IF Ki=17 THEN 710 ELSE 1F Ki=7 THEN 
CHAINES$="" :: CALL HCHAR(PU,PH,104):: GO 
TG 120 ELSE IF K1=8 THEN CHAINES$="" :: G 
OTO 10 ELSE 770 

800 OPEN #i:"P10.b€" 
810 FOR BL=1 TO 16 :: 
CALL GCHAR(EL,BC,C1) 
820 IF CI=99 THEN CI$(BL)=CI$(BL)&"#" EL 
SE C1$(BL)=CI$(BL)&" * 

830 NEXT BC :: NEXT BL 

840 FOR BIM=1 TO 16 :: PRINT #1:CHR$(14) 
: TAB45) ;CIS(BIM):: NEXT BIM 

870 PRINT #1:CHR$(15);"":"CODE HEXADECIM-: 
AL" :CHAINES 

880 CLOSE #1 :: FOR BEF=1 TO 16 :: 
EF)="" :: NEXT BEF :: GOTO 770 
2000 CALL HCHAR(PU,PH,104):: IF C THEN C 
4=99 ELSE CA=9é 

2010 RETURN 

2100 CHAINES=CHAINES&HDS ( COMP) : : 
:: RETURN 


FOR BC=3 TO 18 :: 


CI$(B 


COMP=0 


RD Se EE ie 


Ce petit programme en Basic Etendu 
se passe de commentaires, et prouve, 
si besoin était, que le TI est un très 
bon outil graphique puisqu'il permet 
d'obtenir des effets extrèmement 
intéressants avec seulement quelques 
lignes de Basic. 


(a 


100 CALL SCREEN(Ï):: 

MIZE :: OPTION BASE ! 
{14) 

110 FOR B=33 TO 137 STEP & :: CALL CHAR( 
B,"0FOFOFOFFOFOFOFO" ,B+1,"FOFOFOFOOFOFOF 
OF" ,8+2,"0FOFGFOFFOFOFOFO"):: NEXT & 

120 FOR B=1 TO 14 :: CALL COLOR(B,16,1): 
: COF(E) ,COQ(B5=1 :: NEXT BE 

150 FOR L=1 TO 6 :: FOR C=i TO 8 :: CALL 
HCHAREL ,C,C25+CINTÉRND#14)+1)x8)+INT(RN 
DXx2)):: NEXT C ::-NEXT L 

160 FOR L=i TG é :: FOR C=i TO 8 :: 


CALL CLEAR :: RANDO 
:: DIM COO(14) ,COF 


CALL 


:)°) MAGAZINE n° 6 


KHaleidoscope 


Merianne Sutz 


GCHAR(L,C,X):: CALL HCHAR(L,17-C,X+1):: 
CALL HCHAR(L,16+C,X):: CALL HCHAR(L,33- 
C,X+1) 

161 CALL HCHAR(13-L,C,X+12:: CALL HCHAR( 
13-L,17-C,X):: CALL HCHAR(13-L,16+C,X+1) 
:: CALL HCHAR(13-L,33-C,X):: CALL HCHAR( 
12#L,C,X) 

162 CALL HCHAR(124L,17-C,X+1):: CALL HCH 

ARC124L,16+C,X):: CALL HCHAR(12+L,33-C,X 
+1):: CAÂLL HCHAR(ZS-L,C,X+1) 
163 CALL HCHAR(25-L,17-C,X) : : 
(25-L,16+C,X+1):: CALL HCHAR(25-L,33-C,X 
D:: NEXT C :: NEXT L 

170 CALL KEY(0,K,S):: 1F S THEN CALL CLE 

AR :: GOTO 150 ELSE CAR=INT(RNDx14)+1 :: 
COC(CAR)=INT(RND*16)41 :: CALL COLOR(CA 

R,COO(CAR) ,COF (CAR) ) 

180 CALL KEY(0,K,S):: IF S THEN CALL CLE 

AR :: GOTO 150 ELSE CAR=INT(RND#14)#1 :: 
COF(CAR)=INT(RND*16)+1 :: CALL COLOR(CA 

R,COO(CAR) ,COF (CAR) ) 

185 GOTO 170 


CALL HCHAR 
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Opérations 


Albert Rigal 


Ce programme éducatif, écrit en Basic 
TI, permet de faire réciter les tables 
des quatres opérations à de jeunes 
écoliers. 


11 propose : 


le choix de l'opération; 

le choix de la table; 

une série de dix questions dans un 
ordre aléatoire; 

si deux erreur à une même question : 
affichage de la bonne réponse; 

trois niveaux de notation avec 
appréciations à chaque niveau; 


e selon la note attribuée, l'affichage 
automatique de la table pour 
faciliter la révision. 


Mode d'emploi 


Après le générique d'introduction, le 
programme commence par demander le 
prénom de l'enfant, ce qui permettra de 
personnaliser le programme. Ensuite, 
le menu s'affiche, on choisit 
l'opération (multiplication, soustrac- 
tion, addition et division) puis la table. 


Alors, une série de dix questions est 
posée, ce qui permet de faire réciter 
toute la table dans un ordre aléatoire. 
On entre la réponse, puis <ENTER?. 


A la fin de la série, la note s'affiche, 
ainsi qu'une appréciation. Une note 
égale ou inférieure à 6/10 provoque 
l'affichage de la table en question, 
pour la révision tout le temps désiré. 
On répond ensuite à la question “Une 
autre série ? O/N". 


O 


A RE 


REM/ #46 3636 3636 26 36 36 DE 38 DE JDE DE DE DE EE 


REM* OPERATIONS * 


REM* ALBERT RIGAL * 


REMx######02.1984xxxxxx% 


REM% POUR TI 99/4A * 


REM* TI BASIC * 
REM #3 3 36 26 36 36 26 DE DD DE DE DE DE DE DE DE HE 
GOSUB 3070 

CALL CLEAR 

RANDOMI ZE 

CALL SCREENK 7) 

FOR I1=5 TO 8 

CALL COLOR(1,4,1) 

NEXT I 

FOR 1=1 TO 4 

CALL COLOR(I,16,1) 

NEXT 1 

CALL CLEAR 

INPUT "QUEL EST TON PRENOM 


S’IL TE PLAIT 
":PS 
CALL CLEAR 
PRINT “MAINTENANT *;P$3;" 


AU TRAVAIL!''!. 


CALL SOUND(100,800,0) 
FOR I1=1 TO 600 

NEXT I 

REM ROUTINE TRANSPARENCE 


CALL CLEAR 
360 FOR I=1 TO 8 
370 CALL COLOR(I,1,1) 
380 NEXT I 
390 REM MENU 
400 PRINT “QUELLE OPERATION CH 
OISIS-TU?°": : 
410 PRINT * 


6e 


420 PRINT 
LE es 

430 PRINT 
12" 1-1 

440 PRINT 
Sas 

450 PRINT 
24"s. # : 

460 PRINT "ccccossosesecosesee 
A ponte a SU EURE TAPE 

UN CHIFFRE DE 1 À 4" 

470 REM COULEURS CARACTERES 

480 FOR 1=5 TO 8 

490 CALL COLOR(I,4,1) 

500 NEXT I 

510 FOR I=1 TO 4 

520 CALL COLOR(I,16,1) 

530 NEXT I 

540 CALL KEY(0O,K,S) 

550 IF (S=0)+(K<49)+(K>52) THEN 
540 

560 K=K-48 

570 ON K GOSUB 590,1200,1810,2 

420 

580 GOTO 350 

9590 CALL CLEAR 

600 REM MULTIPLICATION 

610 PRINT “QUELLE TABLE. 


MULTIPLICATION 
SOUSTRACT I ON 
ADDITION 


DIVISION 


DE MULTIPLICA 
TION 
CHOISIS-TU ? DE 1 
APE T à 1! de 
620 PRINT " 
n chiffre" 
630 CALL KEY(5,K,S) 
640 IF (S=0)+(K<49)+CK>57) THEN 
630 
650 A=K-48 
660 CALL CLEAR 
670 X=0 
680 DIM N(10) 
690 FOR I=i TO 10 
700 NCI)=I 
710 NEXT I 
720 FOR 1=10 TO 1 STEP -1 
730 R=INTC(RND#I)+1 


tape u 


740 G=AXNCR) 


750 INPUT STR$(A)&" FOIS "&STR 
S(NCRI)I&" EGAL? ":T 
760 IF T<>Q THEN 800 
770 PRINT :° 
JUSTE... "7-1 
780 Z=0 
790 GOTO 880 
800 Z=2+1 
810 IF Z=2 THEN 3800 
820 PRINT :" ERREUR! ";P$ 
11 5° RECOMMENCE 
830 X=X+1 
840 CALL SOUND(500,200,0) 
850 FOR V=i TO 300 
860 NEXT UV 
870 GOTO 750 
880 IF R=I THEN 920 
890 FOR J=R+1 TO 1 
900 NCJ-1)=N(J) 
910 NEXT J 
920 NEXT 1! 
930 Y=10-X 
940 IF Y>=9 THEN 970 
950 IF (Y=8)+(Y=7) THEN 1030 
960 IF Y<=é6é THEN 1070 
970 PRINT : 


VOIS S 2 

980 CALL SOUND(200,400,1) 

990 CALL SOUND(200,500,1) 

1000 CALL SOUND(200,600,1) 

1010 CALL SOUND(200,800 ,1) 
GOTO 1090 


CALL SOUND(200 ,600 ,1) 
CALL SOUND(200,800 ,1) 
GOTO 1090 


FAUDRAS REVISER 





:)=) MAGAZINE n° 8 


LA TABLE...": 2: : 
1080 CALL SOUND(200 ,800 , 1) 
1090 PRINT :"RESULTATS: 4 ;Y3;"SU 


FOR E=1 TO 800 
NEXT E 
IF Y>=7 THEN 1140 
GOSUB 3680 
PRINT :"UNE AUTRE SERIE ? 
ON": : 
1150 CALL KEY(O,K,S) 
1160 IF (S=0)+(K<78)+CK>79)THE 
N 1150 
1170 IF K=78 THEN 3020 
1180 RETURN 
1190 REM SOUSTRACTION 
1200 CALL CLEAR 
1210 CALL SCREEN(14) 
1220 PRINT :"QUELLE TABLE DE S 
OUSTRACT 1 ON 
CHOISIS-TU 
2 DE ACAEPIE + 1 
1230 PRINT * tape 
un chiffre" 
1240 CALL KEY(S,K,S) 
1250 IF (S=0)+(K<49)+C(K)>57)THE 
N 1240 
1260 A=K-48 
1270 CALL CLEAR 
1280 X=0 
1290 FOR I=1 TO 10 
NCI)=I 
NEXT 1! 
FOR 1=10 TO 1 STEP -1 
Z2=0 
R=INT (RND%I )+1 
INPUT STR$(NCR)+10)8&" MOI 
NS "&STR$(A)&" EGAL? “:T 
1360 G=N(R)+10-A 
1370 IF T<>Q THEN 1410 
1380 PRINT :" 
VRAI..." 
1390 Z=0 
1400 GOTO 1490 
1410 Z=2+1 
1420 1F Z=2 THEN 3950 
1430 PRINT :" FAUX ! ";P 
SIL RECOMMENC 
Essr°tss 
1440 X=X+1 
1450 CALL SOUND(500,200,0) 
1460 FOR V=1 TO 300 
1470 NEXT VU 
1480 GOTO 1350 
1490 IF R=I THEN 1530 
1500 FOR J=R+1 TO 1 
1510 NCJ-1)=N(J) 
1520 NEXT J 
1530 NEXT I 
1540 Y=10-X 
1550 IF Y)>=9 THEN 1580 
1560 IF (Y=8)+(Y=7) THEN 1640 
1570 IF Y<=é6 THEN 1680 
1580 PRINT 
: "BRAVO! ! 
TRES BIEN..": : 
1590 CALL SOUND(200,400,1) 
1600 CALL SOUND(200,500,1) 
1610 CALL SOUND(200,600,1) 
1620 CALL SOUND(200,800,1) 
1630 GOTO 1700 - 


t"BIEN!!.."3:PS; 


CALL SOUND(200,600,1) 
CALL SOUND(200,800,1) 


1670 GOTO 1700 
1680 PRINT : 


ETUDIE LA TABLE. 
1690 CALL SOUND(200,800,1) 
1700 PRINT :"RESULTATS :°";Y; 
UR 10.,.."3 


NEXT E 

IF Y>=7 THEN 1750 

GOSUB 3830 

PRINT :"UNE AUTRE SERIE? 


CALL KEY(S,K,S) 
IF (S=0)1+(K<78)#CK>79)THE 
N 1760 
1780 IF K=78 THEN 3020 
1790 RETURN 
1800 REM #ADDITION*x%x###3x%3x3% x 
1810 CALL CLEAR 
1820 CALL SCREEN(é) 
1830 PRINT :"QUELLE TABLE D’AD 
DITION 
CHOISIS-TU 
PUDE RAM PISS 3 E 3 
1840 PRINT * tape 
un chiffre" 
1850 CALL KEY(S,K,S) 
1860 IF (S=0)+(K<49)+(K)257)THE 
N 1850 
1870 A=K-48 
1880 CALL CLEAR 
1890 X=0 
1900 FOR I=1 TO 10 
1910 NCI)=I 
1920 NEXT I 
1930 FOR 1=10 TO 1 STEP -1 
1940 Z=0 
1950 R=INTCRND%#I)+1 
1960 G=A+NÇCR) 
1970 INPUT STR$(A)&" PLUS "&ST 
R$&(NCR)I)I&" EGAL? ":T 
1980 IF T<>Q THEN 2020 
1990 PRINT :" 
EXACT..." 
2000 Z=0 
2010 GOTO 2110 
2020 Z=2+1 
2030 IF Z=2 THEN 4100 
2040 PRINT :" 
PS3: 2° 
CES set à 
2050 X=X+1 
2060 CALL SOUND(500,200,0) 
2070 FOR V=1 TO 300 
2080 NEXT UV 


2090 GOTO 1970 

2100 IF R=I THEN 2140 

2110 FOR J=R+1 TO I 

2120 NCJ-1)=NCJ) 

2130 NEXT J 

2140 NEXT 1 

2150 Y=10-X 

2160 IF Y)>=9 THEN 2190 

2170 IF (Y=8)+(Y=7)THEN 2250 


2180 IF Y<=6 THEN 2290 
RINT :" 


NON! "; 
RECOMMEN 


BR 
AVO tits 
2200 CALL SOUND(200,400,1) 
2210 CALL SOUND(200,500 ,1) 
2220 CALL SOUND(200,600,1) 


CALL SOUND(200,800,1) 
GOTO 2310 


CALL SOUND(200,600,1) 
CALL SOUND(200,800,1) 
GOTO 2310 


:"PAS BON DU TOU 

ETUDIE:<."41 1 
2300 CALL SOUND(200,800,1) 
2310 PRINT :"RESULTATS :":;Y;"S 


FOR E=1 TO 800 

NEXT E 

IF Y>=7 THEN 2360 

GOSUB 3980 

PRINT :"UNE AUTRE SERIE ? 

O/N': 3° 
2370 CALL KEY(5,K,S) 
2380 IF (S=0)+(K<78)+(K>79)THE 
N 2370 
2390 IF K=78 THEN 3020 
2400 RETURN 
2410 REM DIVISION 
2420 CALL CLEAR 
2430 CALL SCREEN(7) 
2440 PRINT :"QUELLE TABLE DE D 
IVISION 
CHOISIS-TU 

R'DE LA PS 55 1! 
2450 PRINT "* tape 
un chiffre" 
2460 CALL KEY(S5,K,S) 
2470 IF (S=0)+(K<49)+(K>77)THE 
N 2460 
2480 CALL CLEAR 
2490 A=K-48 
2500 X=0 
2510 FOR I=1i TO 10 
2520 N(I)=I 
2530 NEXT 1 
2540 FOR I1=10 TO 1 STEP -1 
2550 Z=0 
2560 R=INT(RND*#I)+1 
2570 G=N(R)*A/A 
2580 INPUT STR$(NCR)#A)&" QUE 


.DIVISE "&STR$(A)&" EGAL ":T 


2590 IF T<>Q THEN 2630 
2600 PRINT :" 
DONS... 5.1 
2610 Z=0 
2620 GOTO 2710 
2630 Z=Z+1 
2640 IF Z=2 THEN 4250 
2650 PRINT :" FAUX !. "3P$; 
#. 29 RECOMMENCE . 
2660 X=X+1 
2670 CALL SOUND(500,200,0) 
2680 FOR V=i TO 300 
2690 NEXT UV 
2700 GOTO 2580 
2710 IF R=I1 THEN 2750 
2720 FOR J=R+1 TO I 
2730 NCJ-1)=N(J) 
2740 NEXT J 
2750 NEXT 1 
2760 Y=10-X 
2770 IF Y)>=9 THEN 2800 
2780 IF (Y=8)+(Y=7) THEN 2860 
2790 IF Y<=6 THEN 2900 
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3" BRAVO !!1."3 : 

2810 CALL SOUND(200,400,1) 
2820 CALL SOUND(200,500 ,1) 
2830 CALL SOUND(200,600 ,1) 
2840 CALL SOUND(200,800 ,1) 
2850 GOTO 2920 

2860 PRINT 


2870 CALL SOUND(200,600,1) 
2880 CALL SOUND(200,800,1) 
2890 GOTO 2920 

2900 PRINT : 


TU NE SAIS PAS 
LA TABLE...": : 

2910 CALL SOUND(200,800,1) 
2920 PRINT :"RESULTATS :";Y:"S 
UR 10...": 


2930 FOR E=1 TO 800 

2940 NEXT E 

2950 IF Y>=7 THEN 2970 

2960 GOSUB 4130 

2970 PRINT :"UNE AUTRE SERIE ? 
O/N° 

2980 CALL KEY(5,K,S) 

2990 IF (S=0)+(K<78)+CK>79)THE 

N 2980 

3000 IF K=78 THEN 3020 

3010 RETURN 

3020 CALL CLEAR 

3030 GOSUB 4290 

3040 CALL CLEAR 

3050 END 

3060 REM AFFICHAGE GENERIQUE 
3070 CALL CLEAR 

3080 CALL SCREEN(16) 

3090 CALL CHAR(90,"FFFFFFFFFFF 
FFFFF") 

3100 CALL CHAR(130,"FFFFFFFFFF 
FFFFFF*) 

3110 CALL CHAR(136,"FFE7C38181 
C3E7FF") 

3120 FOR T=i TO 14 

3130 CALL COLOR(T,16,1) 

3140 NEXT T 

3150 CALL HCHAR(4,9,90,19) 
3160 CALL HCHAR(S,10,136,17) 
3170 CALL VCHAR(é,10,136,13) 
3180 CALL VCHAR(5,9,90,15) 
3190 CALL VCHAR(S5,27,90,15) 
3200 CALL VCHAR(6,26,136,13) 
3210 CALL HCHAR(6,11,130,15) 
3220 CALL HCHAR(7,11,130,15) 
3230 CALL HCHAR(8,11,130,15) 
3240 CALL HCHAR(9,11,130,15) 
3250 CALL HCHAR(10,11,130,15) 
3260 CALL HCHAR(11,11,130,15) 
3270 CALL HCHAR(12,11,136,15) 
3280 CALL HCHAR(13,11,130,15) 
3290 CALL HCHAR(14,11,130,15) 
3300 CALL HCHAR(15,11,130,15) 
3310 CALL HCHAR(16,11,130,15) 
3320 CALL HCHAR(17,11,130,15) 
3330 CALL HCHAR(18,11,130,15) 
3340 CALL HCHAR(19,10,136,17) 
3350 CALL HCHAR(20,9,90,19) 
3360 A$=" PROGRAMME" 

3370 B$="-OPERATIONS-" 

3380 C$=" # / + - »" 

3390 E$="02.1984" 

3400 FOR I=1 TO LEN(AS) 

3410 CALL HCHAR(7,13+1 ,ASC(SEG 
$CA$,1,1))) 


3420 NEXT I 
3430 FOR 1=1 TO LENCB$) 

3440 CALL HCHAR(10,11+I ,ASCCSE 
G$(B$,1,1))) 

3450 NEXT I 

3460 FOR 1=1 TO LEN(C$) 

3470 CALL HCHAR(14,13+1 ,ASC(SE 
GS(CS,1,1)3) 

3480 NEXT I 

3490 FOR 1=1 TO LEN(E#) 

3500 CALL HCHAR(17,14+I ,ASC(SE 
G$CES,1,1))) 

3510 NEXT I! 

3520 CALL SCREEN(2) 

3530 CALL COLOR(8,5,1) 

3540 FOR R=1 TO 3 

3550 C=1 

3560 FOR 1=1 TO 16 

3570 A=INT(RND#16)+1 

3580 CALL COLOR(13,C,1) 

3590 CALL COLOR(14,3,4) 

3600 C=C+1 

3610 A=A+1 

3620 FOR P=1 TO 8 

3630 NEXT P 

3640 NEXT I! 

3650 NEXT R 

3660 RETURN 

3670 REM AFFICHAGE DE LA TABLE 
ET BONNE REPONSE 

3680 CALL CLEAR 

3690 FOR B=1 TO 10 

3700 PRINT A;"X";B;"=";AxB: : 
3710 NEXT B 

3720 A$=" COURAGE..." 

3730 FOR I1=i TO LEN(A$) 

3740 CALL HCHAR(12,16+1 ,ASCCSE 
G$(A$,1,1))) 

3750 NEXT I 

3760 FOR I=1 TO LEN(P#) 

3770 CALL HCHAR(14,21+1 ,ASC(SE 

GS(P$,1,1))) 

3780 NEXT 1 

3790 RETURN 

3800 PRINT : 


: "ERREUR !!.,."3:PS$ 
"&STR$S(A)D&" fois 
"&STR$S(NCR)I)&" egal 
"sAXNCR)D: : 

3810 Z=0 

3820 GOTO 880 

3830 CALL CLEAR 

3840 FOR B=ii TO 20 

3850 PRINT B;"-";A;"=";B-A: 

3860 NEXT B 

3870 A$="ENCORE UN EFFORT." 

3880 FOR I=1 TO LEN(A$) 

3870 CALL HCHAR(12,14+1 ,ASC(CSE 

GHCAS,1,1))) 

3900 NEXT 1 

3910 FOR I=1 TO LEN(P$) 

3920 CALL HCHAR(1H4,18+1 ,ASC(SE 

G$(P$,1,1))) 

3930 NEXT I 

3940 RETURN 

3950 PRINT : :"FAUX!!..."3;P#: 
” "&STRÉS(NCR)I+10)&" 

moins "&STR$(A)&" eg 

al"; NCR)+10—A: : 

3960 Z=0 

3970 GOTO 1490 

3980 CALL CLEAR 

3990 FOR B=1 TO 10 

4000 PRINT À;"+";B;"="3;A+B: : 

4010 NEXT B 

4020 A$=" 

4030 


REVISEMIM EE 
FOR I=1 TO LEN(P$) 


4040 CALL HCHAR(12,16+1 ,ASC(SE 
GE(P$,1,1))) 

4050 NEXT 1 

4060 FOR I=1 TO LEN(AS#) 

4070 CALL HCHAR(14,20+1I ,ASC(SE 
G$CAS,1,1))) 
4080 NEXT I 
4090 RETURN 
4100 PRINT : 
5 "&STRS(A)DE" 
&STR$S(NCR)I)&" egal"; 
A+NCR): : 

4110 Z=0 

4120 GOTO 2100 

4130 CALL CLEAR 

4140 FOR B=i TO 10 

4150 PRINT BxÂ;"/";À;"=";BxA/A 


NON 15.7 
plus * 


4160 NEXT B 

4170 A$="ETUDIE!!!" 

4180 FOR I=1 TO LEN(A$) 

4190 CALL HCHAR(12,18+1 ,ASC(SE 
G$CAS,1,1))) ë 

4200 NEXT I 

4210 FOR 1=i TO LEN(P$) 

4220 CALL HCHAR(14,20+I ,ASC(SE 
G&CP$,1,1))) 
4230 NEXT I 
4240 RETURN 
4250 PRINT : :" 
PS3: :° "&STRECNCR)I A) &" 
que divise "&STR$(A) 

&" egal";NCR)#xA/A: : 

4260 Z=0 

4270 GOTO 2710 

4280 REM FIN DU PROGRAMME 

4290 CALL CLEAR 

4300 CALL CHAR(128,"307879327é6 
FCFCFC") 

4310 CALL CHAR(129,"307878307F 
FCFCFC*) 

4320 CALL CHAR(130,"FCFCFC4848 
484848") 

4330 CALL COLOR(13,16,1) 

4340 PRINT * *# AU REVOI 
ROMEO ÉTCEANE REF PEU TE à 
4350 FOR I=1 TO 15 

4360 CALL SOUND(S5,1600,2) 

4370 CALL HCHAR(18,13,128,9) 
4380 CÂALL HCHAR(19,13,130,9) 


4390 FOR J=1 TO 50 
4400 NEXT J 


4410 CALL HCHAR(18,13,129,9) 
4420 NEXT I 
4430 RETURN 


NON MIE See 


Les cassettes 
" 99 Magazine ‘ 


4 à 8 contiennent, tous 
les programmes publiés 
dans les revues correspon- 
dantes, à l'exception des 
sources Assembleur ou 
Pascal... 
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Un "bug" dans 
"GALAXIA" 


Une erreur apparaissait sur le listing publié dans le 
prédédent numéro de “99 Magazine”, ainsi que sur le code 
source placé sur la disquette correspondante. Toutefois, : 
le code objet, baptisé “GALAXIA", était correct. Pour que 
tout rentre dans l'ordre, il faut modifier, dans le fichier 
ligne placée juste avant 


source “GALAXIA-0", la 
l'étiquette KEY : 


BL @VSBW au lieu de BLWP @VSBW 


Quelques adresses 


Jean-Claude Hardy, un de nos fidèles lecteurs de 


Montréal, nous 


227-6900. 
Compucentre, 


transmet 
distributeurs de logiciels pour le TI-99/4A. 


TEX_COMP, PO. BOX 33084, Granada Hill, Ca. 91344, 
U.S.A. Tél. : (818) 366-6631. 

TRITON, Products Company, Order Center, PO. BOX 
8123, San Francisco, 


9001 


quelques adresses de 


Ca, 94128. Tél. : (800) 


Boul. Louis-H. Lafontaine, 


Montréal, Canada, Tél. : (514) 354-3810. 


dans le fichier “GALAXIA-6", il faut supprimer la 
dernière valeur de DATA (,288) dans l'avant dernière 


ligne. 


Petites annonces (gratuites) 


e À vendre, TI-99/4A TBE. 1000 FF. 
Module “Basic Etendu” + manuel 500 FF. 
Extension de mémoire externe 32Ko 
(01/85) 1100 FF. Magnéto Philips 
D6600 + câble 550 FF. Paire de 
joysticks 150 FF. Nombreux livres et 
cassettes (jeux, utilitaires...). Le tout 
pour 3000 FF (avec livres et 
cassettes). Bertrand Delestrez - 4, rue 
Grissom - 62210 AVION - (21) 
28.21.75. 


e Vends modules “Parsec”, “Burger 
Time”, "Startrek”, “Fathom”, 
. Microsurgeon” : 180 FF. “Tombstone”, 
“Video 1”, “Wumpus” 100 FF. 
Cassettes ‘“Lunar Lander”, “Jumper”, 
"Solar System” : 80 FF. Livres. J. Reibel 
- 9, square Fleming - 92350 LE 
PLESSIS-ROBINSON - (1) 631.46.11. 


e Cherche (échange) programmes pour 
TI (Basic TI ou Basic Etendu). Réponse 
assurée. Cherche aussi un manche de 
manette de jeu. Laurent Kraft - 22, rue 
Pasteur - 68300 SAINT-LOUIS - (89) 
67.51.18. 


e Vends TI-99, interface SECAM, 
manettes de jeux, cordon magnéto, 
Basic Etendu, Mini-mémoire, manuels, 
casettes “Basic par soi-même", 
"Conseils financiers”, “Sungames” et 
50 programmes sur cassettes. 10 
Hebdogiciels. 5 modules de jeux ("Pole 
position”, ‘Moon Patrol”, “Foot”, 
"Carwars”, “TI Invaders”). Valeur de 
l'ensemble 4800 FF, cédé à 3500 FF. 
Xavier JACQ - 8, rue de la gare-- 29223 
SAINT THEGONNEC - (98) 79.42.43, 
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e Achète "Editeur/Assembleur", 
"Synthétiseur de paroles” et "Terminal 
Emulator 11" pour TI 99/4A Claude 
Besneux - BP 56 - 92110 CLICHY - 
564.17.74 de 14H à 17H. 


e Recherche cassette “Assembleur 
ligne par ligne” (ou copie) utilisable 
avec la ‘“Mini-mémoire” (écrasée 
involontairement et irrécupérable 1). 
Dédommagement assuré. (6) 448.61.81 
après 20H. 


e Vends module “Gestion de fichiers” 
(250 FF) et cassette “Conseil 
financier” (50 FF) Jean-François 
Dupont - 8, rue Madame de Sévigné - 
53000 LAVAL. 


e Vends TI-99/4A avec 9 modules : 
"Basic Etendu”, “Echecs”, “Othello”, 
“Parsec”, “MunchMan”, “TI Invaders”, 
“Chasse au Wumpus”, “Cars War’, 
“Pirat's Adventure” et synthétiseur de 
paroles, cordon magnéto, 5 manuels, 
manettes de jeux. Très bon état. Prix à 
débattre. Patrick - 657.22.66 entre 18 
et 19H. 


e Vends boîtier d'extension, lecteur de 
disquettes et carte contrôleur. 
Mini-mémoire, livre Assembleur. 
Cassettes Basic et Basic Etendu par 
soi-même. Cordon magnéto, 4 modules 
de jeux, cassettes “Lunar Lander 11". 3 
livres de programmes. Marc Mathonnet 
- 33, avenue Auguste Blanqui - 69100 
VILLEURBANNE - 16 (7) 885.73.78. 


e Vends TI-99/4A, manettes de jeux, 
magnétophone à cassettes. Guy 
Forestier - 33910 TAURIAC - (57) 
68.86.05 après 18H. 


e Vends “Mini-mémoire” et livre 
“Initiation à l'assembleur” : 750 FF. 
module “Foot” : 250 FF, "Music-Maker* : 
250 FF. François Frattini - 30, galerie 
de l'Arlequin -Appt. 2224 - 38100 
GRENOBLE - (76) 22.16.12. 


e Vends TI-99/4A, “Basic Etendu” en 
français, livres et cassettes : 2000 FF. 
(70) 20.13.84 ou (37) 97.21.72 le week 
end. 


e Cherche modules “Mini-mémoire” 
avec cassette et “Basic Etendu”. Paul 
Ducros - 55, rue des Loriots - 03100 
MONTLUCON. 


e Cherche contacts sur SAUMUR et sa 
région pour tester programme. (41) 
38.1 1.90 le matin. 


e Vends "Mini-mémoire* avec manuel 
"Editeur/Assembleur" et "Basic 
Etendu”. (1) 704.43.17. 


e Achète module "Tunnels of Doom + 2 
cassettes (environ 250 FF). Achète ou 
échange cassettes "Mistery Fun House”, 
<Mission Impossible”, "Voodoo Castle” 
(je peux échanger contre d'autres jeux 
d'Adventure International"). Laurent 
Pelé - 5, clos d'Ergal - 78310 
ELANCOURT - (3) 051.18.96. 
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99 Magazine s'adresse... 


Vous venez d'acquérir un TI-99/4A (on en trouve encore l), 
Tout est maintenant déballé et installé et vous êtes en train 
de découvrir qu'un ordinateur, ça ne marche pas tout seul... 1] 
existe bien des brochures d'accompagnement, mais elles ne 
sont pas toujours rédigées de façon claire. En outre, le seul 
renseignement dont vous avez besoin en ce moment ne s'y 
trouve peut-être pas. 
"99" vous apporte chaque trimestre de nombreux 
renseignements, des programmes complets, des exemples. De 
plus, "99" édite avec chaque numéro une cassette regroupant 
tous les programmes du numéro. Vous pouvez ainsi utiliser des 
programmes que vous y avez vus, même si vous n'avez pas 
complètement compris le listing. En effet, vous savez bien 
utiliser des jeux ou des programmes de gestion de fichiers 
Sans pour autant être capables de comprendre intégralement le 
listing de ces programmes. 


… aux habitués 


En étudiant les nombreux programmes que nous vous 


proposons, vous pourrez perfectionner votre connaissance de 
Basic simple et du Basic Etendu mais aussi vous initier au 
Pascal et à l'assembleur. Dans pratiquement chaque numéro de 
"99", vous trouverez des recettes ou des programmes pour 
mieux programmer et utiliser votre TI-99. 


Vous êtes maintenant nombreux à mériter le titre d'experts. 
Chacun d'entre vous connaît plus particulièrement un langage 
ou un domaine d'application. “99”, en publiant les écrits 
d'autres experts, peut vous en apprendre plus, que ce soit dans 
votre domaine de prédilection ou dans d'autres domaines. 


… à tous ses lecteurs 


Quel que soit votre niveau, vous pouvez avoir des informations, 
des idées ou des programmes à transmettre aux autres. Faites 
nous les parvenir afin que nous puissions faire partager ce 
savoir que vous avez acquis. L'idéal est de nous envoyer une 
cassette ou disquette et un article dactylographié. 


(2 )macazne 


BULLETIN D’ABONNEMENT 


Je désire recevoir pour le N° [°] de 99 magazine 
[_] le numéro avec cassette 
[_] le numéro sans cassette 
[_] la cassette seule 


Je désire m'abonner pour 4 numéros 


à partir du N° [] 


[_] avec cassette 
[_] sans cassette 


325 F TIC 
135 F TTC 


Ces tarifs comprennent l’envoi postal en France Métropolitaine et CEE (voie aérienne exceptée) 
Envoi par avion : nous consulter 


Envoyez ce bon de commande et votre règlement à : 


_ Editions MEV - 49 rue Lamartine - 78000 Versailles 


imprimerie 
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Je vous écris pour vous féliciter 
et ensuite vous poser quelques 
questions : 


Comment, avec l'assembleur 
(mini-mémoïre et extension de 
mémoire) envoyer quelque chose 
vers l'imprimante ? existe-t-il 
une adresse ? Je possède 
personnellement l'imprimante 
Serkosha GP/004. Comment a8/0ors 
simuler le ŒCHRS(8) (accés au 
mode graphique) ? 


Ma seconde question porte sur /a 
routine DSRINK (à l'adresse 
26038 pour /a mini-mémoïre) : à 
quoi sert-elle ? Je crois qu'elle 
n'est même pas mentionnée dans 
le livre de Denise Amrouche et 
Roger Didi intitulé “/nitiation au 
/angage assembleur de 
l'ordinateur familial Texas 
Instruments” 


J'aimerais Savoir Si, en mode 40 
colonnes (par l'assembleur) on 
peut, simplement et sans revenir 
systématiquement au mode J2 
colonnes, mettre en mémoire (ou 
afficher sur l'écran) une lettre 
frappée sur le clavier. 

Stéphane Dunglas - 21, rue de la 
Pompe - 75116 Parfs. 


Votre seconde question constitue une 
réponse à la première. En effet, la 
routine DSRLNK est utilisée pour 
effectuer toutes les sorties (ou 
entrées) vers (ou depuis) les 
périphériques. Nous avions prévu un 
article consacré aux diverses 
utilisations de cette routine mais, 
faute de place, 11 nous était impossible 
de le publier dans ce numéro; vous le 
trouverez donc dans le numéro 9. En 
attendant, des exemples concrets sont 
à votre disposition dans les 
programmes "Désassembleur" (numéro 
5) et "Routines graphiques” (numéro 7). 


Le clavier et le processeur vidéo sont 
en fait deux “périphériques” totalement 
indépendants; il est donc possible 
d'obtenir un affichage 40 colonnes tout 
en ayant toujours accès au clavier. 
Pour vous en convaincre, vous pouvez 
consulter le programme "Désassem- 
bleur” (encore |) du numéro 5. 


Je vous communique une petite 
adresse utile : 


En Basic Etendy (avec extension 
de mémoire) ou min/-mémoire, 
entrer un programme (n'importe 
quoi), purs : 


CALL INIT 


‘)') MAGAZINE n° 8 


Courrier des Lecteurs 


CALL PEEK(-T1 952, A, B,C D) 
PRINT AÀ,B,CD 

(notez les valeurs affichées) 
NEW (plus de programme !) 


Tapez maïntenant : 


CALL LOAD(-J1952, A, B,C, D) 

(A, B, Cet D étant les valeurs 
trouvées précédemment) et 

LIST à 

Votre programme est toujours là. 


Conclusion : le NEW n'efface pas 
le programme en mémoire (Cela 
marche même si vous éteigner /a 
console, mais pas le boîtier 
d'extension) 

Omar Belmoktar - 6, allée 5 de 
Brosse - 93/50 Le Blanc Mesnil. 


£st-il possible de connecter une 
table traçante sur l'interface 
RS232. 
Docteur G. Lourde - &, place du 
Commando - 44600 St Nazaïre 
Cidex. 


L'interface RS232 du TI-99 est 
standard et, de plus, configurable par 
logiciel; une table traçante répondant à 
ce standard doit donc fonctionner 
normalement sur le TI. Cependant, si 
vous projetez l'acquisition d'un tel 
appareil, nous ne saurions trop vous 
conseiller de faire un essai chez votre 
revendeur. 


m'indiquez 
noms des MODEMS pouvant être 
raccordés au T/-99/4A. 


Pourriez-vous les 


Arnaud Duminy - chemin des Ecus 
- 59600 Maubeuge. 


On peut, par l'intermédiaire de 
l'interface série, raccorder n'importe 
quel MODEM au TI. Il existe de 
nombreux MODEM à des prix et avec des 
possibilités diverses; le mieux serait 
donc de consulter votre revendeur qui, 
en fonction de votre problème, pourrait 
vous conseiller un modèle plutôt qu'un 
autre. 


Ve ne possède qu'un seul lecteur 
de disquette. Quelle est Ja marche 
à suivre pour copier une disquette 
sur une autre disquette vierge. 
Par exemple, un fichier utilisé 
pour un annuaïre téléphonique, où 
encore /a disquette ‘Editeur / 
Assembleur" pour laquelle Je 
manuel conseille une copie avant 


Alexandre Dubach 


toute utilisation. 
Jean Langlet - 16, 
Brasselet - Leval - 
Aulnoye Aymeries. 


rue E. 
59620 


Le module “Gestion de disques” est 
prévu pour ce type d'utilisation. Dans 
le menu principal (après le menu 
proposant le choix de la langue utilisée 
pour les messages), {il faut choisir 
l'option “INITIALISATION POUR 
UTILISATION AVEC UN SEUL DISQUE". 
Après cela, il vous suffit de choisir 
l'option "COPIE DE DISQUE”; le système 
affichera à l'écran toutes les 
indications nécessaires. 


£tant possesseur dun 7/-99 
Jj'aïmerai savoir si un lecteur de 
disquettes de marque QUMETRACH 
ou SHUGGART qui utilisent des 
disquettes double face et double 
densité peuvent être installés sur 
Je Texas. 


Jean-Claude Siracis - 1/1, rue de 
/a République - 11/80 Ouvrillan. 


Si vous disposez du contrôleur de 
disquettes Texas Instruments, le 
raccordement de ces lecteurs ne 
devrait pas présenter de difficulté. 


Lecteur assidu de “99 Magazine, 
j'ai lu dans le numéro 7 qu'il 
était possible de brancher une 
imprimante /mageWriter sur un 
T/-99/4A. 

Je dispose de la Mini-mémoïre, du 
Basic Etendu, de l'extension J2Ko 
et de Ja carte RS232C. 
l'imprimante Apple 5S'adapte-t- 
elle directement sur le port série 
de la carte ? Si oui, comment 
faut-il programmer la carte pour 
obtenir un listing de programmes 
écrits en Basic ou Basic Etendu ? 


Georges Chareyron - 4 rue F. 
Buisson - 07400 Le Teil. 


L'imprimante Apple “ImageWriter” est 
aussi facile à utiliser qu'une Epson ou 
Seikosha. Un câble standard R5232 
suffit à son raccordement. Pour obtenir 
un listing à partir du Basic : 


LIST "RS232.BA=9600" (9600 bauds est 
la valeur par défaut pour l'Image- 
Writer). 


0 





67 























